o 

Q 
DQ 
LLI 



le 1 er hebdomadaire des programmes informatiques 



FONCTiONS sur COMMODORE 64 

Voici un utilitaire en langage machine qui permet I'utilisation 
des 8 touches de fonction en mode programmation. 
Une fois le programme ;ape. n'oubliez pas de le sauvegarder 
avanl de faire "RUN". 

Sebastien MOUGEY. 



PHfi 



L-- 



PHR 

.:- res 

EEu 6 

Stfi IFB 

Off M33 



cmp tt&* 



5 REM UNE FOIS LE 

EXECUTE 

--" . ..: PyUVE2 TAPER NEW 

7 REM 

8 RE" HPRES UN SIuP/RESTORE 

9 REM TAPER SYS 58096 
Id DftTA 46 REM 

11 OMTR art REM 

12 DflTR 48RB1 

13 DATfi 96 REM 

14 DATA 48 REM 

15 DftTFi rt5.C3 REM 

16 WTrt C5.FB REM 

17 Dfilfl F8.51 REM 
19 DhTA 85. FB REM 
19 DATA C9-63 RET 

28 CPIrt Da. 08 REM 

21 DHTH rt9,5B REM 

22 CSTH 3D. 99. CI REM 

23 Dfllfl 4C.3A .-. -- 
.J DfiTfl C9-94 REM ( 

25 DfiTfl DB.03 REM 

26 DflTR R9.01 =En LDfi d*«l 
2? DflTR. 3D, 08. CI REM Sift tC108 
23 DflTR ACJH.Zd REM JMP rt 

29 ORTfi C9.03 REM D CMP «*85 

38 dhtr ee.ea rem bme e 

31 DATA RS.lf REM i_D* M1F 

S DfiTfl aL.88.Cl REM STR »C188 

.. DBTR 4C.Jm.c8 REM JMP ft 

34 DfiTfl C9.86 REM E Of 1*66 

35 DATA C8-;? REM SHE B 
l- - R9 ■: REfl lZiA M3D 

37 S«TR aD.9B.CI REM STR »U99 

38 DfiTfl flD.8D.82 -REM * LD* (6280 
33 DRIfl C9.81 REM CMP atei 
48 DATA [(8.88 REM BNE D 

41 DATA ftD.88.CI REM 

42 DATA 69. BE PEM 

43 DATA 8D.80.C1 REM 

44 DATA A2.ee REM 

45 DflTR Rc.ee. CI REM 

46 DflTR B3.«I,Ll REM F lDH il 

47 Dfllfl 3D. 77.82 REM STR 

48 DATm E^ ^Er: lux 
a* DATS C3 REM IMV 
50 DATA E8.8F REM CP-: 
5! DATA py,F4 P£M BME 
52 DATA 66. C6 REM STX K6 



LDft M96 
5TR *9314 
LDrt ttCkS 
Sift I031i 



LDR *CI30 
ADC »*8E 

sm *ci88 
ld>. iiee 
ldv *ciee 



iv- 



Sj DATR 68 REM 1 

34 DATR R8 REM 

35 DATA 68 REM 
56 DATR Art REM 
37 DATA 68 RE" 
58 DATA 4C.3I.ER REM 
39 

61 DflTR 76 REM 

62 DftTfl R9>ee REH 

63 DATA SD- 14,83 REM 

64 DATA A9.C8 REM 

65 DATR SD. 15.03 REM 

66 DfiTfl 5s REM 

67 DBTR 60 REM ft! 

98 REM LECTURE DES DRIft 
99 

188 PRINT ■ 
»»»»Ut< IN3THMT i 
SR HAS * 13 DROIT 

118 FOR A-8 TO 99 

128 READ Ft* 

130 GCSUB 588 

148 POKE 49I52*A.0E 

158 MEXT R 

199 

288 FOR A=8 10 12 

218 READ ft* 

228 OOSUB 588 

2 it) POKE 58wQ8*A,D£ 

248 NEXT A 

297 

296 REH ENTREE DES FOMC I0W 

299 

300 0*-CHPj C4J 

301 DIM MftBJ 
305 FOR F=l TO S 

318 PRINT ->>*i>»! J'| Rt 

UR ■,CHP«'34.. REM 6 CRSR DROIT 
315 PRINT "IMMWThPER », 9 PO 
OR ." REM 6 CRSR DROIT 
328 PRINT "IfMWITARER S-9 PO 
UR UN RETURN " REM 6 CRSR DR'JII 
325 PRINT "lM»»»M»»Mf<urrjr;ft 
U'JUt DMNS" REM 14 CRSR DROIT 



Suite page 5 



UN GAGNANT 
DE PLUS! 



Le programme POKER-AL- 
PHABET de Guy SEVAN. 
Gagne la premiere manche du 
concours HEBDOGICIEL- 

Georges LECLERE dans la ca- 
tegorie SPECTRUM. Son pro- 
gramme es! anive en retard 
mais ce sont les PTT qui en 
sont responsables. le cache! 
de la posle faisant (oil 
Nous en profitons pour rappe- 
ler que la redaction d'Hebdogi- 
ciel s'etail reserve le droit de 
ne selectionner que les pro- 
grammes qui lui semblaient 
dignes d'etre commercialises 
et suffisamment fideles au 
theme propose. (article 3 du re- 
glemen! qui est paru dans 
I'Hebdo durant toute la duree 
du concours). Alors. auieurs 
de programmes sur PC1500. 
ZX81, et autres machines, 
consolez-vous: voire pro- 
gramme etait probablement 
tres bien mais il lui manquait 
peut-etre un petit quelque 
chose ou bien tl etait un peu 
trop eloigne du theme general. 
Sans rancune, n'oubliez pas 
que les deux concours perma- 
nent sont toujours la pour 
vous permettre de gagner! ■ 



EDITO 



Un de nos objectils. vous le 
savez. est de (aire baisser le 
prix des logieiels commerciali- 
ses en France, nos prix etaient 
jusqu'a present assez bas, 
surtout pour les abonnes qui 
beneficient d'une remise de 
dix pour cent. Cette semaine. 
plusieurs constructeurs ou ;m- 
portateurs commencent a nous 
suivre et les prix de la majorite 
des soft descendent de fatjon 
spectaculaire. jusqu'a 30% de 
difference. LODE RUNNER 
par exemple, qui est probable- 
ment un des meilleurs logieiels 
jamais realise, baisse de 390 
F. a 380 F. pour Commodore 
64 et de 295 F. a 250 F. pour 
VIC 20. Tous les Ariola Sott 
baissent de 450 a 380 F. et de 
285 a 250 F, TIME ZONE des- 
cend a 900 F. et RADAR RAT 
RACE se retrouve a 150 F. un 
module Commodore au prix 
dune cassette! Ca va jouer 
dans les chaumieres. Et pour 
faire bonne mesure. HE8DO- 
GlCIEL baisse son tant de par- 
ticipation aux frais d'envoi en 
recommand6 de 25 a 15 F, 
40% en moins! 

Gerard CECCALDI 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilieur programme CHAQUE MOIS- 
1 voyage en Californie pour le meilieur logiciel CHAQUE TRI- 
MESTRE {Reglement en page interieure) 



MENU 



APPLE II Dao Supergraphe 


Chnstophe KOCH 


Page 4 


CANON X-07 Bataille 


sous-manne 


JL PENOT 


Page 19 


FX 702 P Ordmateur de bord 


E DUJARDIN 


Page 19 


COMMODORE 64 


Lesonneur 




de Paques 


PM GARDERES 


Page 5 


Touches de fonctions 


Sebastien MOUGEY 


Page 5 


V1C20 


Para 


Arnaud COURTECUISSE Page 3 


DRAGON 


Al Capone 


J L DECOUX 


Page 7 


HECTOR Jeu des drapeaux 


M. BAILLY 


Page 13 


HP 41 


Caique 


M. ESZALA 


Pages 


0RIC1 


Feux croises 


B TEXIER 


Page 2 


MZ80 


Mastermind 


Eric LEVEAU 


Page 12 


PC 1251 La tour sombre de Mordor 


Jerome BARBAROUX 


Paqe 14 


PC 1S00 Simulateur de vol 


Charles CARON 


Page 1 2 


ZX81 


Assaut 


J.P SOSSON 


Pago 2 


SPECTRUM 


Rip 


Stephane MULLER 


Page 17 


TRS80 


Microdis 


Bernard DUPIN 


Page 6 


Ti 99/4A (b s.) 


Mutant 


M ANGENOT 


Page 18 


Ti99/4A(be) 


Panique 


dans la cuisine 


Joseph MOKADIM 


Page 6 


TO 7 


Cible 


V DAGOMMER 


Page 3 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P .COMMODORE 64 ET VIC 20 . 
DRAGON . HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET 
ATMOS . SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07. 



HIPPOREBUS trouve? I expression 
isoiuiion en page mterieure) 



e cache dans la B D del'hippocampe Decompos 




22 juin 1984 



Allemagne 3.50 DM - Belgique 55 Frs - Canada 2.50 $ - Luxembourg 57 Frs • Suisse 3 Frs 



I 



FEUX CROISES 



Abattez les Zglongs qui n'hesiteront pas a se kamika- 
ser pour vous (aire perdre. Ce jeu est totalement 
compatible ORIC1 et ATMOS. 



ORIC1 



2 REM - COMPATIBLE ORIC-I RTMOS - 
10 HIMEM»8990 CLS P0KE618.10 

20 cosue 14990 

30 MTR127. 127 127.127.127,127.127.127, 
127-127.127.32 

49 PRT996. 32. 66. 46. 84. 69. 89- 73. 69. 82. 32 
.32.32.49-57.56.31,32 

39 CRTR127 127. 127.127. 127. 127. 127. 127, 
127.127 

60 TEXT 

79 CR»"" "+CHRt<27)+-fi" 

89 CP»»" "♦CHR»'27'-*"D" 

108 CN*-" "*CHP»'27'-.' , H" 

110 CLS PRPER7 INK4 

11! PRINT 

115 FORN-1T012 PRINT NEXT 

129 PPINTCN*;" FEUX CPOISES" 

130 t'PINTCN*." FEUX CROISES" 
149 F0RN-1T011 PRINT NEXT 

:■ .■ :.:i -j\ ?oo^ 

209 PRINT PRINT" VOULEZ VOUS LES PECL 
ES (O^NJ T" GET 8« 

210 IFB»="O*THENCOSUB12099 

350 REM 

353 PRPER0 INK7 

355 HIRES PRPER4- INK7 PPINTCHR*< 17> 

356 COSUB 16908 
369 CURSET 39.38,1 

379 DRRW189.0.1 DRRU0, 169.1 OPRU-180.0, 
I DRRU8,-169, 1 

389 CURSET 30,160.1 

398DRRW3,0.I PPRU9.15.1 PRRU5-9-1 PPRM 
0,-19-1 

490 DRRW-10.9.1DPRU0.5. 1 DRRMlO-O, 1 

410 CURSET 39,175,1 

420 DRRW29.0.1 t}PRW8.24,I 

438 CURSET 38,I83.9^CHRP 42,0.1 

449 CURSET 58.199,1 

459 DPRW0.-3.1 DPRW13-0-1 -DRAW 9,-6,1 

469 DRRW8.9. 1 -DRRW9.2. 1 'E>PRU7.9, 1 PRRW9 
,7,1 

479 CURSET64. 192.9 CIRCLE3-1 

489 CURM0V22.4.1 

499 DRRWIl.9,1 DRRM0,3,1 'DRRW9.-3.1 ;DRR 
M6.-6.1 DRRU9.3. J DRRW 9,0,1 

590 DRRW 0,5,1 

510 CURMOV 4,0,1 DRRH Z,8,1-DRPW-1,9,1. 
CRRM9. -3, 1 i DRPW14 , 8, 1 ■ DRRU-4 . 8, I 

529 DRflM0,-I,l.DPRn-4,e,i DRRM0.-I, I OK 
RW-6.0.1 W>RW0.-1,1 DRRW-2,0,1 

539 DRRW0.3.1 PRRW10.0.1 DPRW8,+3, 1 DRR 
W 1,9.1'DRRW -2-0,1 

548 CURSET 138,199,1 

550 ORRW0.-7.1 DPflU+11 ,0,] PPflUO,-?, 1-0 
RRW2I.0. 1 DRRW9,18,I 

569 CURSET 152.191.9-CHRR85.9,1 

379 CURMOV 6.9,8'CHRR49.0.1 

389 CUPWQV 4.9-9 CHRR53. 9.1 

9M CURSET 199. 199. 1 DRRW9. -24.1 -DRAW 2 
0-0-1 DRRW 0.-3. I 'DPRU-10,9.1 

689 DRRW 0.-5. 1 0PRW19.9. 1 -DRRU3.-5, 1-D 
PRW-5.8-1 DPRU0. 15. 1 CUPMQV-5.0, 1 

610 PRRW9,-3,L 

1198 F0PN*9T07 RERDM R»"9890+' STR3C "<i" 

1110 POKER. II NEXT 

1120 DflTH412,»C.lllE.«33.IH2.»lE.ltC,tC 

1 1 39 F0RN=9T07 ■ PEROri i R«»9e99*< 8Sft8C< * » " 

1140 POKER. M'NEXT 

1130 DRTR0,4,4.4.»lF,tE.4.9 

1160 FQPN-9T07 RERDM R«t9980+'8*fiSC<""b" 

1179 POKER- M NEXT 

1175 ORTR9,8,0,4.6.«3F,6,4 

1180 N*13 ['IMTH'M' DIITT2XN) DTMT3<H) 
1190 MNT5<H?<0IMT7<H) DWTWN) PIMT9<N 




ERRATA i 

Une petito erreur s'ost glissee 

dans le listing de KONG sur 

ORIC dans le n* 35. en ligne 

5008. il tallait lire: 

5008 FOR 1= 1 TO 3: XA(I) = 

15:NEXT 

Mais nous aurons I'occasion de 

feparler de ce programme ulie- 

rieurement... 



B.TEXIER 



1^10 RERDT54I) PER0T7X I ) ■ REROTK 1 i READ 

rw i • 

i B MEXT J-7 I»l 

1231 PRTR"b'.23 191.211-154.28.154 

1232 DmTTb".23, 134.211,-169,8. 169 

i DftTfl"b".23. 144,211 -174.-10-174 

1234 DRTfi"b".23. 1 14 .21 1 - -174. -49, 174 

1235 DOTH"*/' -23. 934- 21 1.-174. -79, 174 

! ■■- rHTR' , b' , .23.054.211.-174.-ieO- 174 

1237 DfiTfi"b", 23,924,211 .-174.-129-174 

1238 PflTft"?",67.22.I6?.-135.-129.135 
123* DRTR"a". 107.22. 127.-893,-129- 93 
1 249 DRTfi" ? " . 1 47 . 22 . 987 - -955 . - 12? . 53 

1241 DRTR";.". 167,22,067.-935,-125.33 

1242 DRTft"*". 187.22,847,-015.-129. 15 

1243 PRTfi"*". 282. 22. 932. 8.-129.0 

1259 eP*="BD".TBt="TB" TH--TIPS" 

1260 N«»BD« X-30;Y«5-GOSue3599 
1278 N*=TI« X*196 Y=5 G0SUB5399 
1289 Nt-TB* - » 1 96 Y=5 ■ GOSUB5309 

1282 N**"*" X=-197 Y-134 COSUB5500 

1283 PPINT PPINT3PC'7>"V0ULEZ VOUS LE S 
ON <0'N) ?"j>GET B* PPINTB*. PPINT 

1284 IFB«'>' , 0' , THEN BR" 1 

1293 PRINT-PRINTSPC.7)"PIFFICULTE '0 ft 
3) ? "; -GET B» PPINTB* 

1286 IF B*>' , 5"THENPPINTG0TO1235 ELSEB- 

1299 URIT300 , 

1380 REM **»***PROCPRMME PPIMCIPRL«t*t *■ 
X 

1395 COSUB6090 

1319 R*»KEY» 

1313 IFB<1THEN G0SU85999 R»=-KEY* 

1329 GOSUB2090 

1330 COSUB3098 
1335 IFB<2THEH1399 
1337 R*-KEY« 

1349 GOSJB3099 

1339 C0SIJ85999 

1355 IFB<4THEH13?9 

1357 R»-KEY» 

1369 COS'JB4090 

1378 GOSUB3008 

1399 IF TKiee THEN 1319 

1499 F0PN=IT03; PING 'NHIT199: NEXT 

1418 PPINTiPPINT" VOiJLEZ VCHJ3 REJ0<J 

ER CO^N) ->".rjETB« 

1428 IFB»-"0"THENHIPES TEXT^PIJN 

1425 IFBSO-N-THEN1419 

1439 PPINT^PRINT" RU REVOIR 

">WflIT389'CLS<TEXT ! END 

2908 REM ** S^P DESCEMTE S0I1BE 1 

2010 IF X1=0THEH N*RNOU )*6'IFN>B+I THE 
NPETUPM 

2029 IF Xl»8 THENX1"IHT'.PN0M )*16I H32 = 
Y1-32'G0T02949 

2838 X-Xl Y=Y1 :G0SU86199 

2848 Y=Y! Yl*Yl+4 

2950 IF Y1M95 THENX-X1 'GOSIJ82200' COSUB 
6299 ' XI =9 ' GOSUB5608 i RETURN 

2068 CURSET Xl,Yl,3CHflP64,9.1 

2862 X-XI iY-Yl'G0SUB2398 

2863 IF8«90Re-20RB-4 IHEHWRIT38 
2998 RETURN 

2299 IF BP-0THEN EXPLODE 

2218 RETURN 

2309 REM O S-'P TEST IHFPR3TPUCTURES 

2318 IFY<152 THEN RETURN 

2320 IFX>38RNDX<184 THEN RETUPN 

2330 X-X 1 ■ GOSUB2208 G0SUB6299 XI =9 ■ GOSU 

BS609 PETUPM 
2469 REM ** S/P TEST I NFPRSTPUCTURES 
2419 IFY<132 THEN RETURN 
2429 IFX>50RNDX<184 THEN RETUPN 
2439 X=X2 G0" ; ije2299 Cnsue6209 - X2«9 < MSU 

P,^690 PETUPM 
2500 PEM *» 8/p TEST I NFPRSTPUCTURES 
2510 IFY<152 THEN RETUPN 
2529 IFX>50RNDX' 184 THEN RETURN 



2530 X»X3 ■ CC'SUB229Q ■ OOSUB6209 :<3"0 GOSU 
B56C0 RETURN 

3009 PEM ** S-'P DESCENTE BOMeE 2 

3010 IF X2=0THEN H-RNCK1 •*? ■ IFir-B*lTHEM 
RETURN 

3920 IF ;t2 = 9 THEN:r2=lNT'RIIDM >JI6I >*32 
72=32 G0T03949 

3030 X-X2Y-Y2G0SUB6I90 

3049 Y=Y2 V2-V24€ 

3038 IF Y2M85 THENX=/2 G0SUB2299 GOSUB 
6209-X2=9 G0SUB5690 RETURN 

3969 CURSET V.Z. Y2.3XHRP64.9- 1 

3862 X»X2:Y=Y2 C0SU82409 

38?0 RETURN 

4900 PEM Tt S'P DESCENTS BOMBE 3 

4919 IF X3-0THEN N=PNDU )*5 IFIC-S'-ITHEN 

RETURN 

4020 IF K3-9 THENX3=INT'-FND' 1 >tl61 >*?2 
Y': = -2 G0T04040 

4038 X»X3'Y=Y3 G0SU861P0 

4948 V>Y3'Y3*Y3+8 

4959 IF Y3>!85 THEN:<=X3 ' GOS'."?/290 GOSUR 
6280 ' X3^ rl COSUB3609 PETi iRN 

4960 njP3ET X3.Y3.3 CHRR» : :4.n.i 
4962 Y.=V.S Y=Y3 G0SUB2509 
4R'J9 PETIJPN 

5989 PEM Tt S'P TEST CLE 

5995 IFR*=""THENPETUPN 

5819- IF RSeCHPS-: 101RHCJMTHEN J= J- 1 COS 

ijeeeee GOTO5940 

5015 IFR*iCHRV9>THEN J=7;G0Si '66090 GOT 
05049 

5828 IF fl*=CHRV 11 '■RND J< 1 3THEN J=J*l^C-0 
SUB6909 GOT05849 

5825 IFR»=CHR*(8)THEH J=I = G0SUB6999 ■ COT 
05940 

5930 IFRS=" "THEN G0SUB898B 

5833 IFR« = "e ,, aRRt = "N ,, 0RR*="M , -THENJ-13:G 



9939 If OK-ITHEH XI-9 0^-n 

9940 IFX2-0THEW9979 
9950 X-X2-Y-Y4 G03UB9299 
9960 IF OK-ITMEM X2-9 OK.© 

: ?=9TMC»«ETI.IRN 

9989 X-X3 Y-Y3 009.69299 
9999 IF 0K*1THEN v >=8 0K«9 
9109 RET'iRN 

REM it 3„p POItn f€VRRLOI0>€ 

9219 IF P9INT'y*2,Y*3'' -9 Tmci^^^ 

9220 IF POINT'. ■■ - -~-tr*2fM 
9239 IF P0INT'X.2,Y.4>^9 TMEH9260 
9249 IF POINT'X.3.'*4>^>0 TMEN026R 
9230 RETURN 

9260 C0SUe*198 IF pP=9THEN ^.HnriT 

9270 0»'-l G03UB37W RETURN 

18906 F0RtHflfT02l CURSET8.0.3 

19010 FILL1.I.16NEXTD 

11999 PETi.iPN 

12800 PEM rt S'P EDITION REOLES 

12910 CLS PPINT PRINT PRINT"- LE JEU CO 
NSISTE R PEFEMORE VOTRE" 

12029 PRINT-BRSE WJ1 EST RTTftm.PEF Pftp L 
ES ".'■' OHGS" 

12939 PRINT PPINT"- vmrt; m^po^.EZ K 2 
BRTTERIES LBSER" 

12049 PRINT-OUI PELP/-FNT TJPER 189 SRLVE 

12939 PRINT PRINT-- il EXISTS 1? P05TT1 

ONS DE TIP." 
12968 PPINT PRINT"- CHROME POSITION EST 
DEFINIE PRP iJN" 
12079 PPINT"SYM90(.F SUP IC ? r *x;- TE L'EC 



■ POUR DETRUIPE IJH RS 
CENTRE' «CD 



I PINT PPINT"- 

SRILLRHT IL FRUT- 

12999 PRINT" TO' JCHEP LE"iCfl»»' 
«."PE LR CIBLE.' 

1.--10O PPINT PRINT"- IL EXISTE 6 HIVEAUX 

DE JEU.' JE VOUS" 

12110 PPINT"CONS£ILLE LE NIVFR" >> pnup 
T'EPUTEP'." PRIHT'PRINT PRINT PRIHT 

12129 GOS'J812609IFe*''>"O"THENRETURN 

12139 CLS 

12149 PRINT'PRINTCR*." UTILISATION 
DES TOUCHES* 

12145 PRIHTCR*;" 



5940 R*=""^PETURN 

5590 PEM tt %/? RFFICHRGE HIRES 

5319 FORN=1TOLEN<N«) 

5513 CURSET X.Y.3 CHAR 95.1.0 

5329 CHRP RSC<MID»<N«,W,I)),0,1 

5339 X-X+7:NEXT 

5348 RETURN 

3689 PEM TT S'P RFFICHRGE TB 

36 19 TB-TB* 1 1 N*»STR« TB > ' N«-M ID»< N«, 2 ) 

3620 X= 196 Y=15G0Sije5399 'RETURN 
3780 REn" tt S/P RFFICHRGE BO 

3710 BD=BD*-1 N«=STP*''BD>'N»«MID« i :N«.2) 
3729 X-039 1 Y-15-GOSIJB5590' RETURN 
6809 PEM ** S-'P DEFINITION POSITION TIP 
6019 IFI-JTHEN RETURN 

6929 X-T2U )'Y-T3f I > > WSUB6 1 90 ' EFFRCEME 
NT 

6930 CURSET T2C J), T3< J),3'CHRR RSCCT1»< 

6840 X-T3f I>'Y-T3<I>G0SUB6190'EFFPCEM6 
NT 

6039 CURSET T3< J). T3C JV3 = CHRP 42.0,1'* 

6068 I =-J' RETURN 

6100 CURS€TX,Y,3'CHRP 95. 1 ,")■ RETURN 

6290 CURSETX.Y.3 CHRP 95,1-9 

6219 CHRP 42-0- 1 MflIT10CHRR 95,1,0'RET 
IJRN 

8009 PEM tt S'P TIP BRTTEPIES 

8010 CJRSET203.160.3DRRIJT7'' J).T8( J),r 
IF BR-0THEN 2RP 

8920 CURSET 33. I69.3'DPRWT9< J). T8< J). 1 ■ 
IF BP-OTHEN 2RP 

8030 G0SUB9999'TI-TI+1 

8933 N*-STR«(TI J'N*-flID«<H«,2 >■ X»U4 ■ Y- 
15'GOSUB3300 

9049 CURSET 33.160.3 DRRUT?r J?, TB(J>-e 

8039 CURSET203.1S8.3<DRflWT7f JVTSt J>,8 

8968 RETURN 

9099 PEM tt S-'P TEST ENNEMI TOUCME 

9919 IFX1-9THEN9948 

9929 X-Xl Y-Yl G0SUB9298 



12159 PRINT. PRINT"- LR TOUCHE 'ESPRCE' 
PERMET DE TIRER." 

12168 PRINT PPINT"- LE CL-PSEUP 'HftUT' R 
UGMENTE L'RNCLE" 

12179 PRINT"DE TIP P'UNE iJNITE.* 

12189 PRINT-PRINT"- LE CURSEUR 'BRS' 01 
MINUE L'RNGLE" 

12190 PPIHT-OE TIP D'UNE UNITE." 

12209 PPINT-PRINTCR*." TOUCHES SP 
ECIRLES" 
12205 PRINTCR*;" 

12219 PPINT -PRINT"- CURSEUR 'DROIT' ■ P 
0S1TI0N DE * 

12228 PRINT-TIRS EN 01RG0NRLE." 

12238 PRINT-PRINT"- CURSEUR 'CWXHE' ■ 
PO-SITION POUR" 

12249 PRINT"TIRS DE PROTECTION BRSSE. " 

12259 PRINT PRINT"- TOUCHES 'B' . 'N' 0U 
•M' POSITION " 

12260 PPINT-PE TIPS fl LR VEPTICRLE." 
I2270 PRINT GOSUB 12609 

12280 IF B»-"N"THEN RETURN 

12299 CLS'PRIKHPRINT 

12300 PPINTCRt." INPICRTFUPS RFFIC 
HES" 

12305 PRIHTCR*:" 

— "PRINT 

12310 PRINT PRINT" BO NOMPRE PE BO 
MBES DETR1JITES." 

12320 PRINT-PRINT" TIPS N0M8PE DE TI 
RS EFFECTUES. " 

12339 PRINT'PRINT" TB NOMBPE DF ro 
UPS RU BUT." 

12349 FORH-1T013 PRINT -NEXT 

12350 GOSUB 12600 

12380 IF W"N"THEN CLS'TEXT-ENO 
12390 RETIJRN 

12600 PRINT-PRINT-SUITE ' -N ^ '"GETB« 
RETUPN 
13009 PEM ft S'P MUSI QUE 
13910 S«""t 1341771 1637671 1" 
13012 FCRM-0TO2 
13913 PLRYI. 0.0.8 

13920 FOPN=lTnLEN(Sf TI=H1W S».N. 1 ) 
13030 T=WL'Tt>-T"T*M 
13933 MUSICI,3,T,7 
13049 URIT7-NEXTN.M 
13030 PLRY0.9.O,8 
13060 RETURN 

11990 PEM H EDITION LICNE *i 
14910 FOPI=4B0O9Tn.l?93? POKE I . 32 ■ NEXT 
14920 FORI=4e00nTn4r-n-><i PEfiPrZ' POKEI .22 
rRLI.«FB03 MRIT10NEXTI PING 
14039 RETURN ■ 



ASSAUT 



Vous naviguez en pleine mer avec votre croiseur, tout 
est calme, quand soudain vous apercevez des avions 
et des sous-marins. il vous faut alors les detruire avant 
d'etre vous-meme detruit! le mode d'emploi est dans ie 
programme. 

J.P.SOSSON 




11 GOSUB >i90f) 



li REM : 



(till 



14 LET mi-peek 16398+23«*PEe» 



16399 

13 LET 8M-8 
^9 LEI BC-9 
25 REM dlfflCUl 

38 CLS 

35 GOSUB 7900 

37 CLS 

49 FRST 



z%* 



165 PRINT " fm 

179 PRINT RT 5,7j" 
173 PRINT RT 6.9," 

180 PRINT RT 9-8;" 
183 PRINT RT 10,8. 
159 PPINT "— — — 



250 PRINT RT 3.0;fl*<N TO N+31 > 
260 PRINT RT 16,9jS«<N TO N*31 ) 
O 263 IF INKEY*-"?" THEN GOSUB LI 

279 IF INKEY*-"6" THEN GOSUB LI 

273 NEXT N 

277 REM p*r-ti*Wim* 

280 IF 0K*4C THEN LET SM-SC 
295 PRINT RT 21.27;SM 
299 PRINT RT 16.0;" RPPUYE P 

GUP PEJOUER... 

295 IF 1NKEYS-"" THEN GOTO 295 

296 IF INKEYt-O"" THEN GOTO 296 

309 GOTO 20 
301 REM tlrlM-KMI 
385 LET 111 -ft 1+279 

310 LET T-N+28 
315 POKE Ml, 24 

329 POKE Ml. 8 
323 POKE Ml -32. 24 

330 POKE Ml-32.0 
333 POKE Ml-64,24 
349 POKE Ml -64,0 
345 POKE Ml-96.24 
339 POKE Ml-96,9 
335 POKE Ml-128,24 
360 POKE Ml-128.0 

365 IF R«T>-"«" THEN GOSUB 435 
i66 LET P-P+l 

J67 IF P->59 THEN LET LII-270 
378 RETUPN 



TR8LE D"EOUIVRLENCE 










PES CRRRCTEPES INVERSES 








ENTRE ZX81 ET 


IMPPIMRNTE 








SEIKOSHR GP10OR 










CRPFICTERE ZX 


CRRRCTEPE GP109R 


9 


INVERSE 


« 


" INVERSE 






« 


INVERSE 




£ INVERSE 




li 


B 


INVERSE 


b 


* INVERSE 




% 


C. 


INVERSE 




INVERSE 









INVERSE 


d 


■> INVERSE 






F 


INVEPSE 








( 


F 


INVERSE 


f 


) INVERSE 






r. 


INVERSE 




> INVERSE 






H 


INVERSE 




< INVERSE 






I 


INVERSE 




■ INVERSE 






.1 


INVERSE 


j 


+ INVERSE 








INVERSE 




- INVEPSE 






1 


INVERSE 


1 


r INVERSE 




tt 




INVERSE 




' INVEPSE 






N 


INVERSE 




. INVERSE 






n 


INVERSE 




. INVERSE 






p 


INVERSE 




. INVERSE 









INVERSE 




INVERSE 






R 


INVERSE 




1 INVERSE 






ft 


INVERSE 




2 INVERSE 




a 


T 


INVERSE 


t 


3 INVERSE 






II 


INVERSE 




4 INVERSE 






V 


INVERSE 




5 INVERSE 




1 


u 


INVERSE 












INVERSE 




7 INVERSE 








INVERSE 




8 INVEPSE 






2 


INVERSE 





ksr.i-.er.il : 



I PEN x 

1 [..111 Mt'L ■ 

i FOP 1-33 TO L-Jl STEP 

I LET H-IN7 <PND*Z> 

I LET RS' I'H TO ;'-■'*«■(■' 

) NEXT I 

; rem tou*-MmiwB»nmils 

j DIM BKL ■ 

J FOP 1-33 TO L-31 STEP V+'V 





371 


REM tirB>onb»4 




373 


LET Ml-fll+410 




380 


LET T-N+14 




IBS 




295 PRINT fiT 19, 3<" S %'"' 'HB I 






i)' • fi rue 20," < if 






210 PRINT RT 19-3," *m /" . TRB 13 






,"S ViTRB 29." ,**,*" 






213 PRINT fiT 20, 3j" V" . TR6 13 






(■ V.TR8 28>" ■ /" 


413 


1 OKE in>.'9.52 




429 




tm*»mt;. '<■.■■■<<■ 9 ■" 


425 


it -.v 1 ■ i-o" MW GOSUB ■! 




426 


ill 6+1 




427 


11 38 THEN LET LI2-273 


239 FOR N-I TO L-40 


430 


1.1 n -I- 11 


235 IF FWH+lBJ-'-B" THEN OO^Ub 


431 


REM ivionltouche 




4i5 


LET fi»' r-i 10 T+2>-" 


240 IF S»<N+10>-"o" THEN GOSUB 


440 


PPINT RI 3.8.M*'N 10 H+31 


368 


443 


LET SC-SC+23 



PPINT HI 21,8(80 

RETURN 

REM MU»-PMirlnllOUCh* 

LET 8* T-2 TO T+2.-" 

PRINT fiT I6.0>S»(N TO H+31) 

LET SC-SC+28 

PRINT fiT 2l,8iSC 

RETURN 

REM rriOTlRttf 

LET Ml-Rl+143 

POKE Ml. 23 

POKE Ml, 8 

POKE Ml+33.23 

POKE Ml+33,9 

POKE Ml+66-23 

POKE Ml+66.8 

poke mi+99,23 Suite pagot 



CIBLE 



o Q 



Le but du jeu est de detruire des canons dans le cou- 
loir ou vous etes enferrne (sans espoir den sortir!). 
Tout serait tres simple, trop simple, si ces memes 
canons ne vous tiraient pas dessus et si un bouclier 
protecteur rebondissant contre les parois n'avait pas la 
facheuse habitude d'empecher vos missiles de passer. 
Bon depart vous avez trois vaisseaux. 
Les touches de deplacement et de tir sont indiquees 
dans la presentation du programme. 

V.DAGOMMER 




&e cosue leee 

70 CLS:SCREEM7.8,0 

88 LOCATE 12,5,9:^TTfiet. I : COLOR 3:PRHtT" 

CIBLE*:*TTP89.3 

90 BQX<92,ZS>-<i&Q,ZZ>.6 

168 COLOR 4,2 

ne LiNE<5,ie>-'32,ie>--* 

128 LINE<S V 17>-C3S>17 ■•-• 

138 eOX(18.ie'-'309.198),5 

148 LOCATE 10.22:COLOR3,e:PRJMT-vfllSSEflU 

X *f :C0L0R4:PRINTGR#<I>+GR*'2.'l" *:G 

R»<1)*CR»C2> 

158 COLOR1.0 

169 FOR 0-1 1 TO 16 

178 LOCATE 4,Q:PRINTCR*<8> 

188 NEXT Q 

198 LOCATE 31.H,8:C0LOR 4, 8: PRINTGRK 1 >♦ 

CR*<2> 

288 LOCATE 18.2HCOLOP 1 ■ 8: PRINT "SCORE 

: **SC 

218 COLOR 7,1 

228 LI«U3,H8--<13,He + l>*»* 

238 REW 

248 REH TEST CLAVIER 

238 A*«IXK£Y* 
268 IF At--0* THEN 920 
278 IF A*-'K- THEN 968 
288 IF A»«* * THEN £18 

298 REn 

388 REn DERIACEHEWT BOUCLIER 



TO 7 



318 COLORS, 

328 UNE<13.HBw 13,HB + 1>- -,8 

330 HB=H6*0EP:IF HBtll THE* OEP-UGOTO 3 

30 ELSE IF HBMS THEN D£P = -i:&OTO 338 

348 COLOR 7,1 

358 LINE<13,HB^-':l3.H8*l'-4' 

368 REN 

378 REn TIRS CANONS 

388 IF TIR.J THEN 408 
390 COSUB 1248 
488 COLOR 3,0 
418 LOCATE I.H1,8!PRINT- ■ 
428 LOCATE I,H2.8:PRINT- ■ 
438 LOCATE 1 , H3, 8: PR INT' ■ 
LOCATE I,H4.8:PRINT- ■ 



458 



'1*4 



468 LOCATE I,H1,8:PR!HTGRI ;<:LOCATE I,H 

2,8:PftIMTGR*f3):L0CATE I,H3,8:PPINTCR*<3 

'lLOCATE I,H4,0:PPINTGR*(3> 

478 IF I/=38 THEN PSET^38,H1 )CHRt<I27>,8 

:PSET<38,H2>CHPia27f,0:PSET<39,H3>CHR$C 

127>,8:PSET'39.M4>CHPK 127>,8 

4S8 IF I>=38 THEN IF H1=H OR H2=H OP H3= 

H OR H4=H THEN TIR=0:GQTQ 740 ELSE TIR 

■=0:1-6 

498 REn 

580 REM TIR JOUEUR 
510 IF TJ0«9 THEN £50 
526 C0L0R.8 
538 LOCATE L, HT 1 , 9= PRI NT ■ ■ 



545 L-L-4 

358 IF L«I4 THEN IF HTt-HI 

HEN PSET(L,HTI Wi ■ .::--■-_■ l.HTI - i 7 

,7iP9C1 ....■•■■■ 

5*8 PStT L.HTI ;i ' ,3 

■ ■ ■ 

5se : r ... 

648 ZLlt IF l ■« FHEII " 
598 GOTO 250 
BM R£fl --- 

618 IF TjO-I THEN 328 
628 TJ0-J(L-MiH7I«H 
638 GOTO 518 

648 REn - 

650 REn CANON DBBAT1 

660 PL«. ■T3A101L24I :=;=;, 

678 PSET 4,HTIjGR*(6>,6iF0RF»IT01 

TF:PSETC4,HTI>GR*(7 ,7iF0J?F«iT 

■ PSET<4,HT1 ■" ■.■■ 

680 SC=SC*I0 

698 C'HTI ■=: 

780 PSET.4.HII iCHRf 127 ,0 

710 IF CI1' = ; AMD -:■;£■=! AMI :::=;- 

ND C'l4>.i «*;> C15-: AND C(l( -- . --■_■- 

828 

720 LOCATE SZfZlSCOLOG . - ■'- - : IHTSC 

730 GOTO 258 

740 PEtl 

759 REn VfilSSEwU TQUCHE 

769 LOCATE 31,H,8tPRIHT' TPLO ISA101L 

24HIRE00- 

7 -e csETi ?:.-•■:= i - .-.-•:-- ^-.': :•>•:•.£; - 

:PSET'31,H :pi - .--.-■ ----.-: :..■.■■:■,; ": = : 

ET<31,H>" -.0 

738 VA1S«V(»IS-I!IF VAIS-8 T KES 1328 

798 IF Vfi[S=£ THEN .OC-TE 27,22= C0LOR9,e 

:PPINT- 

S89 IF VAIS=1 THEN LOCATE 2 £ . £2:P = I NT - - 

818 FOR F=1I TO 16!C(F>=8:NEXT.G01 

828 REn— 

838 REM CANON: &ETPUITS 

849 PLAVO4AlLI2T4SC-LMiILi4.j3:-OC004Ll5SO 

lasiQ5L24RE»eo.il:^:l-- :: r .;-: :-::::-:.. 

ASO- 

358 SC=SC*20:FOP F=:i TO !6*CtF »OSW " 

860 TIR=0:TJO=9 

370 PSET(I,Hl>CHR*a27>.8 

380 LOCATE 22.2t:C0LOR 1.0:PRINTSC 

390 GOTO 158 

908 RE" 

918 REn OEPLACEflENTS VAISSEAU 

928 LOCATE 31,H,8:C0L0P .8:PRINT* ' 

938 IF H> 1 1 THEN H=H-1 

948 LOlmTE 3:, H.eiCOLCP-*. >?:?>: :i"-t : -0 

R*(2> 

958 GOTO 328 

968 LOCATE 31,H,8:C0L0P ,8:PR!NT- ■ 

976 IF H<16 THEN H*M+! 

988 LOCATE 3i,H,8:COL0P4. 8:PRINTCPI : ,-C 

R*<2) 

998 GOTO 320 

1088 REn 

1818 REn INITIALISATIONS 



- 



I 
■ ■ ■ 

1848 :- : ;s* i 

■ ■ 

: ■ - ■ 



■ ■ ■ -■ 
■-:-.,-- 

■ ■ t ■ 
■:• l ■.■-, ■ i - - . - . ■ . . . 
. - ■. ■ : - ' . ■■ . . 

El - 

me °E" P0CSEMTA1 ; v 

■:t".e.e 
;::;.■:_:. 
RINT'CIBLE'IBO 
?.ie-<39?.199>.5 
ll«e ATTRB8.0 
113* LOCATE 5,n = 
0LOR1 : PR I NT -n;ncrri 

0L0R2:P»:-.- ■=. 

i>E !=C0L0R2iPBliiT-AP« ■ 

;;=e locate e. :^= ;:.:t:: = i :•.••: ■- 
L0R1:PRINT-t:pe= ";i COLOR £■■'■:.- 
Z SU» LA •;iC0LORliPRIKl 
1178 LOCATE 18.1?:C0L0( 
ANCE-JLOCATE 3,2UC0t( - " 
1198 FDR F.; 70 tMBtKE " 
1198 PRINT'-": . l: ' r- • : ■ ■ •- - ■- I 
Mi NEXT 

1280 AMIKKE'-'l: .»:»[:" -I.-; 
ELSE 1288 
1218 GOTO 79 
1228 REB— - 

1236 REn TIRACE ' I- ■ . 

1248 TIR-1M-6 

Hr»lHT' Rm>*< -; ; : : r 



38 

1268 H2=INT' ">.[••; 



■•liiir 



NE i 






■lHT(fiMO*6 •::■■:■ : ~: ■ = 



1280 H4«INTtRNt'46>-!i: ! r -- . 

12?8 RETURN 

1388 REn— - - 

1318 »En FIN t>E LA PARTIE 

1320 PLAY'«IT502L96PI 

SPEL96REL4800L720001L48SIO2L96DO- 

1339 CLSJLOCATE 67, 18:C0l0R2.8jPRIh: "C*E 

ST F mi, VOUS AVE" PERM." 

1346 ATTR61.1: C0L0R1 :L0CiSTE5.-'f ; .' ICRI 

e^LOC^TE 30.*:;c.L:?--*.-F'.:'.:iti : •:=! : 

:L0CATE 13,07: C0LC'R3:PP:nT*C ISLE* 

1339 ATTRB8.0:LOCATE 85,15:C0lOR ItPRIHl 

■VOTRE SCORE EST DE -;SC:' POINTS" 

1366 90XC16.ie>-<399, I89->.3 

1379 LOCATE 3,20!COLOR 7! PRINT" : . . 

US REJOUER 7 •IRMINPUTXn 

1389 IF R«-*N- THEN CLSJENf 
1399 RUN 



PARA 



Ce programme est congu pour un VIC 20 de base. II 
est compose de 2 programmes solidaires: Le premier 
genere les caracteres graphiques et contient une petite 
presentation, tandis que ie second constitue le jeu en 
lui-meme. Tapez le premier programme (en prenant 
garde aux datas!) puis sauvegardez-le. Rentrez ensuite 
le second en ayant soin d'eteindre le VIC auparavant. 
Pour jouer, il vous suffira de charger !a premiere partie 
(en laissant le magneto sur PLAY) et ia seconde se 
chargera automatiquement. 

Vous pouvez utiiiser le clavier ou le joystick, mais dans 
les deux cas, il faut appuyer sur la barre d'espace pour 
larguer le parachutiste. 
Bon amusement! 



Arnaud COURTECUISSE 




3 PRIMT H .T POKE 3e3/S". IBS PQKE36878, 15 

6 POKE36663, 255 

19 PCKE52.23 POKESS.23 CLP 

11 FORI=7ieST07673 POKE! ,PEEKC 1*23660^ NEXT 

12 F0ftC=7.344T07639 ■ PEHDft POKECB-HEXT 

13 DfiTfW, 0,233, 136,232.40,238.9 

16 WiTFe. 0,238, 170-174,170,233,0 

17 DfiTfW, 0,112, 64, 36, 64, 112,0 

18 DflTFUM, 102,39,66,66,66,66.195 
13 DHTH60, 36. 36, 120.24,24,24,120 

21 DflTfll.0.0, 123,131,253, 129, 128 

22 BfiTR253, 16, 124,238.231,235,254.32 

24 DfiTRe. 65. 67. 255, 234, 255. 255, 127 

25 rjflTR224, 160,224. 254, 184.240,224, 132 
28 DRTH235, 255, 231. 231, 233, 255. 126,60 

23 DfiTFW, 0,9, 0,0,8,8,0 

30 DflTH9,24, 126.253.255. 126,24,0 

32 DflTftSe, 126,255,253,255, 163. 163,60 

33 DHTR30. 38. 126.60.60.36.36,36 

34 DBTfW,0, 3, 14,28,60,255,255 

35 DHTR255. 255, 255. 255. 255. 255, 255, 255 

36 DflTR255,255,253,143,143,143,143,143 

37 DHTR90, 30, 126,60,60,233,253,233 

38 DRTR36. 36. 36,60.60, 126.30.30 

33 DRTFI235. 135.165.153. 133,165,135,255 
43 OP.Tft60.30. 153. 153, 153. 183,255,255 
53 DRTR62, 126, 78,94, 78-34, 124,8 

34 DHTft0, 0.8, 238, 136.232,40,230 
53 DRTR0, 0,0, 119, 69, 117, 21, 119 

56 DRTR 60,118,223,137,253,215,126,60 

38 DHTR69,66, 189, 161 , 161 - 183,66,69 

53 DHTR126, 126, 102- 102, 192- 102, 126, 126 

60 Df!TftI2,28.60.12,12.12.12,12 

61 DftTft62, 62, 6. 12,24.48,62,62 

62 DRTR62,62,6.28.28,6.62.62 

63 DfiTfl36,96.96.96-108.126,126,12 

64 DATH126. 126.96,48, 12.6, 126. 126 

65 DRTH24, 48-36-240, 209. 208, 200, 112 

66 DBTB126, 126,6.12,24,48.96. 192 

67 DfiTH254,138. 133,254,133.138,254,254 
63 DflTP.126. 70-/8,126.6,6.6.6 

63 I)FiTfi0,0,8.1l9,66,I14,66,66 

109 PRINT "3" 

110 POKE36S79.106 
290 PRINT"! 



258 PRINT" ' I I I I t I' 

255 PQKE7333.3rPOKE8021,42 
308 F0RG37691TQ7354STEP22 

305 P0XEG-34:P0KEG+22,35 
318 F0RP=1T0188 NEXT 
320 POKED, 32-P0KEO*22, 32 

330 NEXT:P0KE0,34:P0KEG+22.35 
358 FOP.O1-8077TO8034 
335 P0KEG1.27 -POKEG1+1 ,23 
360 PEPiDF FQPP=ir0198-HEXT 
370 POKEG1+1,32:POKEG1,F 

389 NEXT P0KEG1*1,28 POKEOI.27 

390 DHTH32, 32.32,32,47.32. 32,32.44. 
45,58,32.32,49,37,56,51,32 

400 FORP=lTQS00'NEXr 

588 FOR I - 1 TO 1 50 P0KE36865 , ( 38+ 1 > ■ NEXT 

501 PRINT'TJ" 

502 PRINT" PRRFT 

583 PPItJT"«W LE JEU CONSISTE ft" 

504 PR1NT"«B FfliPE BTTERPIR UN" 

505 PRINT "«» PARACHUTISTE SUR " 

306 PPINT"1M UNE ERSE ID*-" 
507 PRINT" BP" 

598 PRINT"01 EN CONTOURNmNT " 

593 PRIHT"JWa LES NUH8ES !" 

512 FOPP*1TO150 :pOK.E36865,'.38+U-P HEXT 

313 FORP1-1TO3000 NEXT 

514 F0PI-1T0158 P0KE368e5:' 38*1; NEXT 

315 PRIHTTT 

IL FAUT E&RLEMEMT" 
COMTOURNER LES" 
LES MINES 10" 
■BAN8 GASPILLER LES" 
UNITES DE FUEL *" 
P0KE36363,(38+I >-P NEXT 



517 PRINT") 

518 PRINT "OS 

519 PRINT'HB 
321 PRINT "JW 
522 PRINT ".«■ 
530 F0PP=1T015« 
600 F0RP2-1T058OJ NEXT 
610 PR I NT "3" PRINT' 
613 PRINT"*" 
620 PRINT-IW 
630 PR I NT" HO 
640 PRINT'OB 
658 PPINfUW 
...,.; I R [Mi 



DEPLACEMENT" 



210 PRINT" 
220 PRINT" 
230 PRINT" 

240 PRINT" 



1 I 



i i t 



I" 



8ESPHCE1 UWOUflOE' 

- RETRO FUSEE" 

A DROI TE 

D GAUCHE" 

[•) BONNE CHfiNCE" 

730 FORP2-1TO3090 NEXT 
788 F np I = 1 1 1 50 POK E J686S . '. 38+ 1 > NEXT 
7?9 PPINT'TI" 

809 FORP- I T0I58 P0KE36865, C 38+1 >-P NEXT 
830 PPIHT"3" P0KE1 «,! POKE63I, ?B POKE632, 
69 P0KE633,87 P0KE634,l3 POKE633fl3J END 



4 H1-0'POKE650,253 

3 P0KE36878,3 S-l KR-10 R=0 FU-380 

6 POKE3 1,0 P0KE52, 30 P0KE35 , POKEW. 38 

7 PQKE37151.0 PB-3/I31 PB-37132 RB-37134 
10 PRINT-3" R0KE36879,14 

20 PRIHrsroBBMU PRESSER U>4£ TOUCHE 



Nf\C 20 



30 GETA* 1FB*=""TH£N30 

155 PRim-rr 

501 FORI=0142TO8163.POK£I,36 PUKE38862+< 1-8142}, 3 ^NEXT 
558 E"INT(RNDC0J»28) IFB>13ORB<5TH£N550R-0 

569 POKE8038+B,31POKE8129+B-42 

570 POKE8120+B+1.29 POKE8120+B+2-38 

571 POKE38840+B+1.7 POKE38840+B*2,7 
588 N«INT<RND(0J«18JNN-lNT<RNDC0)»18)-n«lNT(RNm0J«lB) nn«INT<RNDi.e>418/ 

585 POKE7768+N,33 POKE7790+NN.33 

586 POKE7702.46POKE38422.1 
599 P0KE7834+M.33 POKE7836+rm,33 
591 F0RVI-B183T08183+(3-SJ-POKEVI,35 NEXI 

532 FORD=-1T02ISTEP2 PDKE8032+D.41 P0KE38732+D.3MEXT 

533 FRINT"«B30O.TMUag«iI«iiaiRian',R-P0KE3142,36;P0KE3ee62,3 
594 Vfl-7332 I VB-7965 ■ VC-7366 V2-791 1 
596 FORCF-S171TOei70+(FU/198> POKECF,43NE>;T 
609 FORH»7681TO7700 

620 POKEM-27 POKEH+1,28 

621 PH"l:fl-M+21 

625 POKE38402+(H-7681>,2 P0KE38481+(H-768O , 2 

626 GOTO30000 
630 P0KE36877.CRNIK1 J15J+240 

640 P0XEH.32 POKEH+1,32 

641 PQKE8141.3S POKE8140, 38 P0KE81 18.33 
643 GETfl*.lFAt-" " THEN790 GOTO600 
650 NEXTGOTO600 
700 A=-H+21 P0KEH.27 POKEH+1.28 

706 Z»PEEK(PH) PDKERB.127 X"PEEK<PBJ PUKERB.233 
787 IF(XANDI28>«0THENA-A+1 

708 IF<2AND16J=0THENR-A-1 

709 IF(ZAND32>='9THENR-R-22-FU-FU-10 

710 POKER, 34:P0KEA+22,35PH-2 
715 POKE36677,(RND(1}«5>»240 
73A F0RP-KAT018 NEXT 
721 GOTO50080 

738 POKER. 32 POKEA+22,32 
733 IFA+22-8076+BTHEN980 

736 IFA+22O8076+BANDA+22>8097THEN910 

737 GETAf ■ IFA««="A"THENA-A-1 

738 IFA»-- , D ,, THENA=R»1 

733 IFflt-"-"THENR-A-22FU-FU-10 

748 IFPEEKtR+44>=33ORPEEK(P*22)=33THEN1000 

743 IFFU=0THEN20000 

745 IFPEEK<H+44)-41ORPEEK<B*22)-41THEN20000 

730 A-fl+22 

731 FORDF-8175TO8173-CC300-FUJ/180;STEP-1 P0KEDFr32'NEXT 
800 GOT0796 

908 P0KEV2.33 POKEVH, 33P0KEV8, 33 P0KEVC33 

302 POKE8076+B-33 R-R+10 FORP=1TO500 NEXT PGKE3076+B. 32:P0KE8142,36 

303 PR1NT"T\R POKES 142, 36 GOTO30100 
910 POKER+22,32 FOKER+66.39 GOTO2000 
1090 POKER-32 P0KEfl+22.33fl«R+22 
1100 POKEA+22,40 

1200 FORP^l TO10 i P0KE36876, 134 ■ NEXT P0KE36876, 8 

1300 P0KEfl+22,32:A»A*22 

1488 IFA+22>8897THEN910 

1300 GOTO1108 

2908 S-S+l IFS=>4THENGorfjl0880 

2100 FORP a lTO1000NEXT PRINT'TJ" GOTO501 

leges PRiHT , '3"-PRiiir"jaaiia»MMW.'wx m ;r 

11100 IFR>HITHENHI=R 

11120 PRINT"JM V2 ".HI 

12000 FORP*ITO3800 NEXT G0T05 

28000 POKE36877.220 POKEA+22-35 

28010 P0KBVR,33:P0KEVB,33 PGKEVC.33 P0KEVD.33 

28939 FORJ*1TO0STEP-1 FORI-3-JT012+J-PGKE36864, I P0KE36879.23O P0KE36879, 14 NEXT 

I.J 

20100 F0RL-13T09STEP-1 

20208 P0KE36378.L F0RN-1T043 

28400 NEXTN NEXTL 

20608 POKE36077.0 P0KE36878.3 GO1O20O0 

30100 FORV-8120+B+1TO8138 

30150 PQKEV.23 PQKEV + 1.30 PUKE3884O*',V-8120>,7 POKE38841 + <V-8120>,<' 

30170 KA-Kft+1 IFKA>28TH£NKfl-2B 

30290 FORP-1T06 PDKE36877, 201 NEXT 

30300 POKEV. 32 POKEV+1 , 32 P0KE36877.8 

30409 NEXT'/ 

30459 FORVI-3118TQ3052srEP-22 P0KEVI.33 

30460 FORnu-130TO200 P0KE36875.MU NEXT PaKE36e75,0 
30478 POKEV I. 32 NEXT 

38471 FORVJ>8eS2T08118STEP22 POKEVJ-33 

30472 FORMV-180TO280 P0KE36B-'3,nV NEXT POKE36873-0 

30473 POKEVJ, 32 NEXT POKEVJ, 33 
30500 PRINT-TJ" OOTO301 

Usee POKEVfl,33 POKEVB/33 POKEVC.33 POKEVZ-33 
30100 IfPEEK':R+44>«33ORPEEK(H+22>-JJtHEH1000 

v-nin i .-ki : [iv .■ i.i -i 

38600 IFVAW943THENVA-7922 P0KE7943.32 
30708 IFVBC-7944THENVB-7963 P0KE7944.32 
30738 IFVZ<»79TOTHENVZ"7«1 Put- E7900.32 
59800 IFVC/-7987THENVC-7966 P0KE7987.32 
59300 POKEVR-32 P0KEVB.32 POKEVC. 32 P0KEV2. 32 
38930 VA-VA+1 VB-VB-1 VC*VC+1 VZ-VZ-1 
51088 IFPH-ITHEN630 
31190 IFPH-2THEN730 



DAO SUPERGRAPHE 



est necessaire dexeculer POKE 



Graphisme & gogo avec ce super programme qui vous utilisation du programme; 

emmenera dans les trois dimensions et peut-etre dans c £? se „ J.[?B.'™P?'l a J?}Jl „„ 

\a nnatri»mpi On nPiit a I'aidP dP rPlui-ri cre-Pr dans '03.VPOKE104,64;POKE 64" 256.0 avani de charger le programme 

la quamemev un peui. a iaiae ae ceiui ci creer aans ceci pouf le cnargef au dessus de , a page gfa p h i que n * 1, Des le 

I'espace des surfaces et des sondes a partir de seg- lancemem du programme, apparait le menu principal, ii est alors 

mentS. Le programme Se Chargera alors de VOUS en possible de tracer un segment normal ou pointille, de visualiser les 

coordonnees des points deja delinis, d'effacer dun segment ou 
d'acceder au menu secondaire qui lui. permel d'oblenir les autres 
vues et les modifications dimensionnelles. Pour selectionner les dif- 
ferentes options il suffit de deplacer un curseur avec fa "fleche en 
bas", et pour valider il faut appuyer sur RETURN. 
Pour definir avec precision I'objet, il faut bien entendu un dialogue 
entre I'ulilisaleur el le logiciel. Un point peut etre rep6re dans I'es- 
pace apres un triplet: son abscisse, son ordonnee et sa cote. Si 
vous sefectionnez I'option 1, trace d'un segment, apparaitra alors la 



donner la representation, toujours dans I'espace. mais 
sous d'autres angles. Ainsi il est possible, apres avoir 
elabore la vue de face d'obtenir la vue de Droite. de 
Gauche, de Dessus. de Dessous et d'Arriere de I'objet. 
II est egalement possible de modifier I'echelle de I'ob- 
jet. le coefficient de reduction et Tangle de la fuyante 
de la perspective, les trois solutions etant possibles si- 



multanement. A noter que si Ton choisit la valeur nolle P a 9 e graphique et en bas "trace d'un segment normaf de:". il faut 

done rentrer ce triplet dans I'ordinateur sous forme de trois nombres 
en les separant a cbaque fois par une virgute. Ainsi. pour rentrer le 
point P1(50, 100,30) il faudra taper apres Trace d'un segment nor- 
mal de:"50, 100.30. le point P1 est alors code et par fa suite pourle 
Christophe KOCH rappeler if suftira de taper Trace..de:"Pi. Apres validation avec RE- 



pour ce coefficient, on obtiendra alors des vues de 
type "dessin industriel". 



TURN apparaitra "a:' fes cons»gne$ soot alors Jos m$mes Tapona 
par exemple"l00.l0,20" puis RETURN Le point P2 est store 

codfi;P2(100.10,20). 

L'utifisateur dispose ainsi de 50 points. Qu'il pourra augmentgr j'.t |§ 

desire. Le fait de coder les points permet un gam de temps et una 

plus grande souplesse d'emploi. Pour tracer en pomtilie dans la vue 

de face il suffit de choisir i'option 2 et de rentrer les points loujoura 

de la meme maniere; trois nombres separes par une virgote. pws 

validation avec RETURN, ou "P" survi d'un nombre. pour un potrrl 

deja code 

Pour visualiser les coordonnees il taut choisir I'option 3; appraftront 

alors les triplets des points deja codes. 

Pour effacer un segment, choisir I'option 4. et rentrer les deux points 

definissant le segment a effacer. 

Pour obtenir les autres vues selectionnons i'option 5. apparait alors 

vues. et les changements de parametres (coef. de reduction. 

echelle, fuyante). 

Pour selectionner une option, taper le chiftre correspondam :es 5 

premiers vous donnent les 6 vues, le 7 vous donne une autre 

echelle, le S une autre fuyante qui doit etre comprise entre 8 et 90 

degr6s. et le 9 vous donne un autre coefficient de reduction qui doit 

etre positif. Si vous desirez copier la page graphique sur impri- 

mante, taper CTRL'P apres le trace de la vue. Pour revenir au 

menu principal, taper ESC (escape). 



120 


Din PTH3 ,! 


: :-.■: 


REM -»-Li*te 






195 


rem -.-... 


'. frO 


CR - .7j REM Coe< 




eduction 




f.Lf"6 * . 7853982: 






ia ■ 


REM P'P.PVP.PZP: 




x le* plus el eves 


190 


II - 3iH* - -Trace 


_■■..-. 


1 - OjFIN = O 


no 


REM N£-Nouvel!e 


220 


REM FIN-l »'ll n' 




point 


23 


REM TG-1 31 le pa 




p grand 




REM EFSEG-1 si 1 ■< 






S3- 


HBR : HCGLOR- 3 


660 


TEXT : POKE - 16' 



16769,0 
Si? r«ll] » "l -TRACE D'UN SEGMENT 

NORMAL " 
£■=»> T»(2> - "2-TRACE D'UN SEGMENT 

POINTILLE " 
•;'■■: ** .' ' - ■'-VISUALISER LES COO 

R-DONNEES " 
fc73 r«(4) - -4-EFFACER UN SEGMENT 



678 J 

680 £==&r5 = QsCR = . 

i<K FF« - -IWM] " 

700 H» - ''Trace d'ur 
'10 -'COLOR- z 

72© TG ■ 
730 SEM "-Presentation- 

740 GO?Li& S200 
80" VTAB IS: HTAB 6: PRINT 
E CHOI' : ■' 

-; ::r: print -==«---: 






HTAB 3: VTAB 



: HTAB 3 = 
I i NORMAL 

PEEt ' - I63G' 



PEEf 



I1H THEN 

163BJI • 141 AND 
F» ■ "nc-rmal": HGR 
■ 1 : GOSUB 33I0I 



' ■ 5 THEN 
: HONE lAZl 
SOTO 1000 
IF FEE* ' - 163841 - 141 and 

I THEN IP* ■» "pointille" 
: HCOLOR- Il BOSUB 6O0OI BOTCJ 
. .... 

■■'- [63941 ■ lil AND 

' -- 7 THEM 809U8 SIOO! fiFT 

■ ra 660 

16 ■■■■-, |4l AND 

: iH* - - 

- ' . ■■ | ■ . n ' POKE 

.■■■■ I :■ 
16380 '141 AND 
■ ■ .-■■■■■•: GOTO 

: 'TAB 1 BJ ■.■::■: 

. ; nORnM 

MtOLOR- ;: GOTO 8SO 

REM -•-Selection Ou curse 











IF X » 13 


THEM 


X - 3 


I NVERSE 


: VTAB t: 




:: PP 




■ : MORttAL 


: VTAB 1^: 




PRINT T» 


Si i POr'E - 


1636B, 


■ ■-. boto bso 






if • ir 


THEN 




* 2: IW^ERSE 


: VTAB *: 


HTAB 


Z:F - 


I IX - 2 


> - I ) / 




NT T» 


■ 1 : NORMAL 


: VTAB 'f 


- 21 


HTAB 


l : PR I r I r 


r»(F - 1 I 


POKE - 


36S.O: GOTO 


BSl 1 








GOTO BSO 








REM 


-Ent 


*e flu 


I paint 











1029 

: 



HOME ; VTAB M 

PRINT 't*;i ft ■ ■ 
* 

[i .i hum 



: D» ■ ■" 
i IP A» ■ 

I ; L-E r i 

r.uu a! 

■ GOTO I' 

. PRINl ■ 

REM 



1 AND A^H 






CHR* (13) THEN PI ■ 
: GOTO 1 1O0 
.* = "i GOTO IO30 
IF ASC (A*) '4? AND OSC 
A*) < 58 THEN D* - D» * A»; 
PRINT A*i : GOTO 1050 
GOTD 10O0 
GET A« 

IF A* - ", " THEN 1057 
!F A* = CHR* <13l THEN C* ' 
iff: J - I - I: GOSUB 1300: IF 
G < > 1 THEN PI » Il GOTO 



1060 
1063 
1099 



IF ASC (A* J ■" 48 OR 
(Si ■ 57 THEN 1050 
I* =■ D* * A» 

IF IE ' 1 THEN TG - 

PRINT A*; 
GOTO 1030 
REM ---Entree du 2 



ASC 



I! 03 


C* - ":A« = "•■ 


I 103 


VTAB REEK (37) * I 


1 1 1 '"> 


VTAB 23: HTAB <7>: PRINT * 




4 "i: GET A* 


1 112 


IF ASC (A*) 1 47 AND ASC 




(A*> < 38 THEN 1200 




IF A* = "P" THEN HT - PEEV. 




C36) - 1: HTAB HT * 2: INPUT 




'■P"!B*: GOTO 1 125 


1123 


HTAB 2: GOTO 1103 


1 123 


B ■ VAL !B»): IF B > I THEN 






1 127 


P2 - B 


1 1 50 






rs P(I» et P<B) 


1 140 


GOTO 20O0 


1200 


REM Le second point est un 




triplet 


1 203 


C* » "" 


! '■■:. 


PRINT A*i 


1210 


HTAB PEEK '361 ' liC* ■ C* 


1220 


GET A* 


.-: 3 


IF A* = ".'■ THEN PRINT AS! 




i GOTD 121m 




IF A» = CHR* (13' THEN I ■ 




1*1: OOSUB 130O: IF TG < 




l THEN P2 - n BOTO 20O0 


1232 


IF TG - 1 THEN TG - Ol GOTO 




1000 




IF ASC (A*l • 49 OR A9C ( 




A*l 37 THEN 1210 


1235 


PRINT A*: 


1240 


GOTO 1210 


1 300 


REM - # -Sous-pro<jrammp : t 




i-aite C*-«- 


1301 





1310 FOR I - 1 TO LEN (C1 
1320 D» - MID* <C». I. I 1 
1330 IF D* - "," THEN POtf 



1 zzz, 


IF I' ■ Z THEN 1343 


I S40 


NEXT I 


1 143 


IF I I 3 THEN I - I - Is 




RETURN 


1 ISO 


P)T* - LEFT* (Ct.POtll - 11 


I JftO 


PV» - MID* (C*,PO(ll * l.PO 




( 2 > - PO < 1 1 - 11 


1 S70 


PI* - MID4 !C*,PO(2) * 1. LEN 




(C*i - P0<2) } 


1373 


G - G i I 


Mil 


PRINT I IF Q ) 30 THEN RETURN 


1 J90 


IF LEN IPX*) ■ 4 OR LEN ( 




PV»> A OR LEN (PZ»! , 4 THEN 




RETURN 


' ■■.'■ 


PX'/.iG) - VAL (RX») :PV/.1G1 ■ 




VAL (PYSXPZXiei - VAI ■!■/ 
IF PTCXIB) * PV/.(G) ■ COS ( 


1400 




ALPHA) ■ CR OR PXZCQI • 




PV'/.(G> • CDS (ALPHA) • CR 




:■)'' FHCN ro - 1 


1410 


IF PIK(O) • PYKI9I • SIN ( 




Al RHA) • LP ' OR P77.(0) • 




1 <"."■ ■ UN •ALPHA) • CR 




13? then rn - i 


1300 


ri ruftN 





f-fm . ••Point* aetDrit.ine« 












>» 


.... ■ 


- 5 




M n | ■■■ 




i ■••! ri >.,.•■ 


■ ild 


■i.| N -i I - ] 




llG Q i : .ir-, ■./.■■ 




■■ ' l ■ ■ i ■ ■ ■■'.' 



IF EFSEG - I 

■.)-.■< ' . 
: ■ r I . 

- P2 



r I -■ ' II '■.■!: 



.1 -i 1 .1 ■■ 

■■'I '. ■ I \ I : 

■ rHI N i ' "." .' 

'■' N <'> - 



2160 


IF PXV.IP2I ■ PXP THEN 
PXV. (P2) 


PXP ■ 


2170 


IF FV7.!P11 PVP THEN 
PYV.fPl) 


PVR - 


2173 


IF PVV.1P21 ■ F-YF THEN 


PYP - 


2180 


IP PZ'/.IPl 1 PZP THEN 
PZZCF1) 


PZP - 


2163 


IF PZ7.(P2) PIP THEN 
P2Z(P2) 


PZP - 


2200 


XI - PXX(Pl) ♦ PYXIPII 
(ALPHA) * CR 


» COS 


2210 


VI - PZZ(F'l) • F'YT'.fPl 1 
(ALPHA! * CR - 


« SIN 


2220 


y.2 = Pr.7.'.P2> - PYX(P21 
(ALPHA) • CR 


* COG 


2230 


Y2 = P7V.'P2> * PYZ(P2) 
< ALPHA 1 • CR 


* SIN 


23 v i 


IF M ' OR XI 27? 

■.''■- ■ 


THEN 


:■::„•■ 


IF x? OR ■■■ 279 
2990 


THEN 


2270 


IF 159 - VI OR 159 - Yl 




> 139 THEN 2990 




. ZBO 


IP 159 - VI' '• OP 139 - Y2 




ir,9 THEN 




- - '"•■'■' 


REM --^Trace en HGR"- 


2295 


„ F _.., = = ... .. . .,, = , 





2iO0 


HPLOT XI, 159 - Yl TD > 


2, 139 


2-??0 


GOTO 1O00 




309O 


PEM -"Visual isatic 


n dm 


3093 






;.,.,.-. 


TEXT : HOME s INVERSE 




r 1 1 o 


PRINT " VISUALISATION 




DES COORDONNEES ": P 


RINT 


:. 1 20 


NORMAL 




[.123 


HX - \:VX - 2 




1130 


FOR V - 1 TD I 










3133 


IF V - 21 THEN HX - 2C 

3 


sVX - 


3138 


HTAB HX: VTAB VX 




3140 


INVERSE : PRINT "P-'Vi I 
: PRINT "— ■ "JPX7.IV! ", 
VI", ■•PZX(V) 


NORMA 


3130 


NEXT V 




3160 


HTAB 36i VTAB 23 




3170 


GET RR*j RETURN 




3200 


REM -»-H*ut de paq 


e-.- 


J2J10 


HOME 





3230 INVERSE 
3240 PRINT " 
DE D A O 
3250 NORMAL 
3260 PRINT "-■ 



3270 



'in- ■!,■ ■ 



3305 
3307 



HOME i VTAB 23l HTAB 3: INVERSE 

PRINT "VUE DE FACE"! NORMAL 

VTAB 22: HTAB 23: PRINT "Ec 
Hi "INE 

VTAB 23( HTAB 23s PRINT 
y«nt«! "| INT (ALPHA ■ 3729 
578) / |O0l "•■' 

VTAB 24: HTAB 23: PRINT "Ci 



Fu 



100 



INT (CR i 



HCOLOR= 3 1 HGR 
IF I ■ 30 THEN I - 30 
FOR NP - O TO I 
FOR J - O TO PPV.1NP) 
IF P'/.(NP.J) < > 1 THEN 

REM P<NP! est relier . 



--./,, 



PZV.'NP) 



F .-■-. 






[Al I"'.) • I 
90 Y.2 - PXV.! J 

(Al r-HAi ■ i 
90 r2 - PZ'/.U: 
(Al i MA) * CS 

- X] • Ill • . 

NEl "V I. • 



PY7. (J) 



'I 



ME:' 



40 



in . r I 
in • ; ni 
■ ■■ 

p hi i ■ 1 1 

i,i i • i. r» 



nun -■) 
(39 rni N 

■■■:. 
1111,1 .1 

I K2.I ■ 



PPV-Ett 



- ■ . ■ .. 



:■ 


MOW 




602i 


POKE - I63OI.0: 


REM Mode ■ 




POKE - 16304.0: 


REM Mode o 


6040 


POt E - 16300,01 


REM Page n 


6030 


FOt£ - 16297, Ol 
RA^olution 


REM Haute 


6060 


RETURN 




°000 


REM -'-Select 


cm des vue 


9003 


*-•- 




.... 




9010 


TEXT : HOME 




9020 


GOSUB 3200 




9060 


PRINT : PRINT " 

: 1-Fce " 


VUE OE 


9063 


PRINT 




9070 


PRINT ■ 


2-Drol 


9073 


PRINT 




9080 


PRINT ■ 


3-Gauc 


9085 


PRINT 




•7090 


PRINT '■ 


4-DMl 


9093 


PRINl 




9100 


PRINT '■ 


3-De*« 



■'!■■'. ■ I- I'll 



VTAB 23i 
" Menu I 
POh E - 



d'un coe'.tle 

t!^H: PRINT 
ioI sE5C " 



9793 

9800 PRINT " 

I PRINT "VOTRE CHO 

REP* 
9802 NORMAL : PRINT 
9805 IF ASC 



27 THEN RETURN 



9010 VCH ■ 
9920 

9930 
9B40 
9830 



9935 



9945 



IREP41 
VCH - 1 THEN DDSUB 3300 
: GOTO 9000 
IF VCH - 2 THEN 10O0O 
IF VCH - 3 THEN 1 1000 
IF VCH - 4 THEN 12000 
IF VCH - 3 THEN 13000 
IF VCH - 6 THEN 14000 
IF VCH - 7 THEN VTAB 23i CALL 

- 868: INPUT " Nouvelle Cc 
lielle i"!NE«:NE - VAL (NE4) 
j GOTO 9783 

IF VCH - 8 THEN VTAB 23! CALL 

- B69i INPUT " Native) 1* Fu 
yjntp 'en Oeqrta) I ")AL4iALP 
HA - VAL tALtl • ,01743331 IF 

VAL 'Al *l - AND VAL ( 

AL») - 90 THEN 9783 

ALPHA - . 7H339B2 

VCH - 9 THEN VTAB 23l CALL 

- 968: INPUT " N0uv*«u cot 
flicirnt: ":CR*:CR - VAL <C 
R«) : IF CR ■ O THEN CR - . 7 

9930 GOTO 97B5 

I REM -»-Vi.ie de droite-" 



i '. 

1 0010 
100 " 
(0030 
100 ■■■ 



HOME ; VTAB 23 I HTt 

PRINl "Vin DE DftOl ■ 

VTAB 221 UTAH .■-.: f 
li: "INE 
/TAB S II HTAB 2 II l 



(NVI i- 1 
NORMAL 



,.!^ 



«'.d 



INI 



HI.. I. . 



INT (CR I 



Inn 



10 vi/.i 10 

f.Ol OR- '■ 

HSR 

io !■'»■ in ■ o ro i 

1 i' I ■ NI 

■ " II < KNP, .11 I IHLN 

■ ro 

■■ REM P'NP' .»i re! imr * 



■ I 



PV&<NP) ' Til I '■'."■I 

n- ■ A) • I i 

- PYX (J) • (PXP i ■-. I i ■ 

: OS »l • Li- 

■ , 'I'M- I'.''. IN 



r.v Q| . ■ 
1 ■■> hi- 



\ 



LE SONNEUR DE PAQUES 



Ce jeu necessite un manche a balai dans le port 1. 
Deplacez voire sonneur de cloches a gauche, a droite 
et cassez les oeufs en tombant du ciel avec votre mar- 
teau (et le bouton de tir). Pour casser loeuf, 3 coups 
de marteau sont necessaires. Ainsi la cloche liberee 
prendra son envoi. 

Vous avez 10 niveaux de jeu. de a 9. A partir du 
niveau 1. votre rapidite et votre dextente a casser des 
oeufs pourra vous rapporter des bonus. Mais attention, 
plus votre niveau augmente. plus votre sonneur fatigue 
et sa Vitesse de deplacement diminue, alors que le pla- 
fond descend. 

Alors. avant d'atteindre les 5000 points du niveau 9. je 
vous souhaite de joyeuses Paques. 

P.M.GARDERES 



148 POKE52.4S POKE56.48 CLR 

141 REM ••••*•••••»*•••• 

142 REM * REOLE DU JEU * 

143 REM ................ 

158 PRIHT-^ga-TH6i9>-LE SONNEUR DE PftOUES" 

160 PRINT-MMXiS ETES UN BRRVE SONNEUR DE i„L0CMES EI", 

178 PRINT-VOTRE TRCHE CONSISTE R CRSSER LES OEUFS" 

188 FRIH1"RFIN DE LIBERER LES CLOCHES POUR LEUR" 

190 PRINT-VOVflGE VERS L'lLE DE PROUES. ■ 

200 print-vous deve2 dgnner irois coups de mhrteru-, 
218 pr1ht-pour briser l'qeuf. 

^28 PRINT-WOLR ftOITER VOTRE fWRIEhU HPPWE2 SUR" 

238 PRINT-LE BOUTON E€ TIR. - 

248 F0RS=192TQ28S 

258 FORH-0TO62 

266 RERDC POKES464+N.Q 

278 NEXT NEXT 

290 PRINT'HWPPUYEZ SUR LE BOUTON DE TIR SVC" 

386 IFCP£EK<56321)ftNB16.'-I6THEN3e© 

381 REM •■••*■•■•■*...». 

382 REM • PRESENTATION * 

383 REM ................ 

318 RI-33248 RS-54272 

328 NV«8:VE=3 PR-1 SC-8-0.5 

338 P0KERI+32.12;POKERI+33.15 

348 PR I NT "T 

358 POKERI+27.255 POKERI+21. 129 

368 FuRX-1984TO2023PQKEX,l60 POKERS+X.5-MEXT 

378 PQKE2047, 192 POKERI+46,10 

388 POKERI+39.6 POKERI+28-1 

398 POKERI+37,4 POKEPI+38.0 

48*3 POKERI+14,178 : POKER I ■* 1,221 

418 F0RYC=28TQ213 POKER I ♦ 1 3 - VC NEXT 

428 FORXS-0TOI53STEP3 

438 POKERI.XS ■POKE2848.201.5+C 

440 FQRTT-1TO50 NEXT 

450 C— C:NEXT 

470 Sl-201.5 

480 FORT"1TO3-POKE2048.1.5+SI 

490 FORTT*1TO30:NEXT 

500 POKE2840,S1 

518 FORTT-lTOSeNEXT-MEXT 

520 POKE2047-285 FOPT=1TO500:NEXT 

530 POKE2047, 193-P0KERI*46,9 

548 GOSUBIB70 

558 GOSUB1318 

360 XC=178VC=213 

578 G0SUEI398 

530 P0KERI+4I.14 POKERI+45.8 

581 REM ***»•»* 

582 REM « JEU * 

583 REM «*«***« 

598 MB=0 KC=8 GOSUB1360 

680 P0KERI + lS,rPEE(^PI + ie.ftHDB'- s .'-pijKEPl+21.2T(N0*l>-l 

610 FQPK=1TONO P0KE2949+K, 132: GOSUB1310: NEXT 

620 FOPK-lTOtB &P«, = INT(PND<8.J»<5+NV).'+3*NV:NEXT 

638 F0RK=1T0NC 

648 VXK)-V<K)+m<K) 

650 pk*FEEK<RJ+38) 

660 IFVf.K;v25fjTHE!(OGSUB13J0 

67d IF<PKhHDI26>O0THENVE=V£-1 GOSU81780 GOTOI 150 
680 P0rEPI+l+2*K,V<IO 
638 NEXT 

708 J7=PEEK' 56321^ [FJVO247RmjVO251RNTjJVO233THEN630 
733 IFJV-239THEH838 
720 IFJV-251THEH778 
730 KS=XS+0S 

7J0 IFX8>2a :-■■. :■■--■:■■':■:- -^i. r^i nt^iit+i pukepI+is.ms 
758 IF<XS>7WHDBSsl>THEHXS=70 0010828 
760 Q—C POKE3040.201.9*C-Pfi"l 0OTQ818 
770 XS-XS-IrS 

739 IF':XS:08NDBS»1>THENXS"253+X$ MB=HB-1 &S=0 POK&PI+I6.MB 
730 IF'/i .;';.HHI;S ; . = y,iHEM-'S=15 G0T0328 
-800 C— C POt'£2049,l37.5+C PP=2 
818 POKERI.XS 



820 IF(Pf.fiNDU6>=0THEN6J0 

330 POkERS+24, 15 POKERS+S, 15 P0KER= 

340 POKEPS+1.30 F0I-£PR,?S 

85t> F0RT=>ITrj2O HEM PWERS+4,0 

860 IFPR=.1THEIIS1«201.5 

S?Q IFPR=2THENSl=t37.5 

888 POKE2048. 1.5*81 

850 FOPrT = iro^ MEM 

?0^ PK-PEEK(RI+30) 

918 POKE2Q40,SI 

320 IF-Fl HNIU2t"'=0THEMSC = iC-2*-HV+i 

'jO'sUB1S30 OU-iUBl^la 60101160 

938 HOHC+I 

948 IFNCO3THEN700 

996 re*vnj tii: MO0 PK-PJ -i 

968 FORT-ITONO 

978 PK-PK/2 [FPK-1THEHK-T 

9S0 NEXT 

990 XC=X<tO YC-VCK> 

1800 POKE2B40+K/28S P0KE2847, 193 

1010 IFZ<k,=itHEHFQKERI*16,'PEEK<RI*16>0RI28) 

1020 P0KERI+14.XC P0KERI+15.VC POKER I +21, 

PEEKCRI+21> + 12iS 

1030 BC*SC+18*<HV+l> IFT2-T*KTLTHENBO='I0»ChV/2 

1040 FDPTT=ITO200 NEXT 

1050 GOSUB1510 GOSUB1760 

1060 GQSUB1870GQSUB1330 

1070 lFZCKJ = lTH£NP0KERI*16,<PEEK',RI + 16;ftNW1B; 

I860 IFSC<VLTH£N630 

1090 NV=NV+1 IFNV,-9TH£NRS-1 

1100 GOSUB1510 POXEPI+21,1 

1110 FORK»1TO6:POKEPI+1+2#K.0:Z<K>=0-HEXT 

1120 GOSUB2050 

1130 IFHS=1THENGOSUB2040-GOTO1179 

1140 Pf>PEEK(RI+30VGGTO590 

1150 GOSUB1510 G0SUB1729 

1160 PK-PEEK<PI+30):IFVE)0THEU620 

1161 REM ...<....♦«»... 

1162 REM * FIN DU JEU 4 

1163 REM ••«**••*«•**«• 
1170 POKERI+21,0 
1180 PRIHT*3Mr'008UB16Se 
1198 IFSOMSTHENMS=SC 
1208 PRINT:PRINT"JB»»»rEILLEUR SCORE i 
*r;ns; u n »■ 

1210 IFRS-0THEN1240 

1220 PRIHT"— ■tHWaUJ ETES UN CHAMP ION" 

1230 F0RT=lT03-GO3iJB173e = HEXT 

1240 PRINT-««D»MUNe RUTRE PfiRTIE ?" 

1250 GETR*:IFRS=""THEN1250 

1260 IFRt="N"THENPRIHT"jll«flU REVOIR !":END 

1270 [FRfO-O* THEN 1250 

1280 POKERI+21,0:POKERI+I6,0 

1290 FORK-1TO6:POKERI+1+2»K,0 Z<K>=0:NEXT 

1300 POKERI,0:pK=PEEK-:RI+30> G0T03I8 

1310 MB=PEEKCRI+16> 

132y IFZ(KJ = lTHENZCK>":0:MB=MB-<2-TK> 

1330 XCtO = INnRND<0>»<QP-20;)+QP*(K-l>+2S 

1348 IFX<K»318THEN1330 

1350 IFX<K»255THEHX<tO=X(K)-253:Z<IO«il: 

MB»M6+<21K> 

1360 P0KERI + 16.MB:pOKERI + K»2,X'.K> 

1370 V<K>=20+NV»3:POKERI + l+n;#2,V()<) 

1380 PK=PEEK(RI+30>:RETURN 

1381 REM •**«**••«•**•**<> 

1382 REM • EK^L CLOCHE » 

1383 REM ***«+•••*«*».*♦* 
1393 TP=3-POKE2047,196 
1400 F0RT=1T022 
1410 TP=TP*C1.1+N'V/'10> 
1428 F0RG=8TG2 
1430 POXE2047.194+G 
1440 FORTT=1TO100 NEXT 
1450 VC»VC-TP: IFVC<HV*8THEH1480 
1460 P0KERI*15,YC;POKERI«-14,XC 
1470 NEXT -NEXT 

1480 P0KERI+21.PEEK(PI+21;-128 
1490 PK=PE£K(RI+30>Tl=VflL<TI*> 

1500 RETURN 

1501 REM MWWWMWIMOT HW 
1302 REM * ftFFICHftGE PESULTflTS » 
1503 REM **«*♦»#♦**»«**»»»»*•«** 
1518 IFtW«9THEMB0=B 
1528 SC=8C+B0 
1538 IFBG=0THEN1630 
1540 FORVV=15TO0STEP~.73 

1558 PGKERS+24,77 POKERS+5, 3 POKERS+4, 33 
1560 F0RHB=7T014 
1578 P0KER3+1.HB : POKERS. 190 
1330 PRIhTWTflB<15> M « BONUS =-".B0"ll 1" 
1530 NEXT 

1600 PPINT"*! , -Ti=iB<15j."a) 
1610 P0KERS+4.8 PGKEPS+5.8 
1628 NEXT-BO-9 
1638 FRiNT"*' 

1648 F0RL-»TQ23: PRINT !NBCI 
1650 3C*-STR«8C)+' " 
1668 NV»=RIGHrj'3TPI'NV;.lv 
1679 VE*««ieHT*<STRt(VE)-1 ' 
1630 PRIHTTflB'3'":*GC0FE ViSCti 
1630 PPIHTTflB'13VIIUVEftU ISNVfi 
1780 PRINTTFiB'SS^'IWIE S M .VEI, 
1713 RETURN 
1720 PK=PK-1 
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1730 F0RT-1T0N0 

1748 PK-PK/2 !FFr=lTHENK»T 

1750 NEXT 

1760 F0PH=vk T0258 P0K£RI+1*2«,H NEXT 

1770 V<K>"2S8 POKE2040+K. 192 PETijfrt 

1771 FEN ................. 

177^ PEII * ' N & ['^Ti,?M:. « 
1773 FEI1 «♦••♦•••••*#*♦.♦♦ 

1730 P0»-EFS+^4. 15 POKERS+5. 15 

P0» ERS+6, ;., POKERS+4 K 

[798 F0RHH-53T018STEP-3 

1880 POKERS+l.HN POKERS. 130 
1810 FORTT=1TO50NEXT 
1820 NEXT PWERS+4,0 RETURN 
133Q POKERS+24,15 PQKEPS+5,15 POKEPS+4,33 
1340 POKERS, 150:pOKERS+l, 29 
1858 FnRTT=iTO100-HEXT 
I860 POKERS+4. RETURN 
1370 CC=2 FOPT=1T03 
1888 POKE2840,PEEK<2840>4CC 
1398 FORV=15TO03TEP-1 

1 360 POKERS+24 . V POKERS+5 .15. POKERS+6 . 64 : POKERS+4 , 
1910 POKERS. 75 P0KEP3+1, 34 

1328 IFV=10TH£NCC=-CC POKE2040, PEEK.'.2040)+CC 
1938 NEXT 
1940 CC=-CC NEXT 

1959 RETURN 
1931 REM *•***•*•«•***•«••*•••* 

1952 REM * CRITERES DE NIVEAU 4 

1953 REM *#••>■••*. ..*... ...... 

1960 N0»4*INT(PNDaiJ*3) 

1970 DS-8-INTC(l-fV+l)/3» 

1336 TL=S-INT<HV*.65»'N0/4>> 

1330 GP=INT(314/N0> 

2900 IFNV<5THEWL=504(2tHV> 

2010 IFNV=5THENVL-I300 

2020 IFNV>3THEHVL=2000#(<HV-4>/2> 

2030 RETURN 

2849 F0RM>/=I9T025 

2059 FORLN-8T039 

2068 POKE984+NV440+LN.160 POKE3525b+NV*40+LN.12 

2063 NEXT:IFRS-0THEN2088 

2070 NEXT:RS»0 

2080 RETURN 

2081 REM *****•«*•*#*••«*«** 

2082 REM n DONHEES SPRITES • 

2083 REM •«•«•*•*••*•••**«•« 

2HS^ DRT80. 60. 9. 0.126. 0.0. 255. 0.1, 255. 128, 3, 255, 132, 3, 233. 192. 7, 233. 224 
2108 WTR7,235,224, 13,235.240, 15.235.249. 15.235.240. 15.235.248. 15.2357248 
2110 DRTRI3. 235. 248, 15, 255, 249. 15, 235. 249. 7. 233. 224. 7. 253. 224 
2120 DRTR3.25S. 132, 1.255, 128,0, 126,9 

2130 BRTB0, 24, 0,9. 36, 0.8, 24. 9,8. 60, 0.0, 126, 0,0, 255. 9. 0.255. 9, 1,255, 128 
2140 DflTftl, 255. 128. 3. 253, 192. 3. 235, 192. 3. 255. 132. 7, 255. 224, 7. 255, 224 
2158 BRTP15. 255. 249, 15, 255. 240. 7. 253. 224. 0,255, 0.8. 24. 8, 0,24, 8,0, 0,0 

2™ CfVrH0 ' ' e ' ' '9-0>0.0,8.S0,0,60,126,60.66.235.66.129.255,l29 

2179 NEXT 

2180 D8TR185. 255. 157, 197. 255, 163, 131. 235, 193. 3. 255, 192, 3, 233, 192. 7. 235. 224 
2198 DRTP7, 233, 224, 15, 255, 248. 15. 255, 240, 7, 255, 224. 0,255, 8,0. 24. 0,8. 24, a.0.0. 
2200 DRTR0, 0,9, 0,0, 0,0. 0,0, 0,60, 0,0, 126, 0,0, 255, 0,13. 255. 240, 17, 235, 136 
2210 DRTR33, 255. 132.71,255.226.75.255,210.83,255.202,87.253.234,103.253,230 

2229 DRTR79. 255, 242. 15. 255, 240, 7. 253. 224. 0.255. 0,9, 24. 9, 0,24, 0,0, 9. 9 
2239 DftTR0,0. 9, 0,9, 9,56. 0.28. 68.68, 34, 130, 126.65, 173,255,77.201,253, 147 

DflTR] 33.255.161.5.253,160,3,233. 192.3.255.192,3.255. 192.7,255.224 
2239 DRTR7, 253, 224, 15, 255, 240, 15, 255, 240, 7, 255, 224, 0,235. 0,0, 24, 9, 0,24, 0.0,0. 

2269 DRTR0, 252- 34, 0,253. 85. 0,48, 165, 8,48. 232, 0,50. 163.8,46.163,9,48,32 

2270 DRTR9. 48, 168. 0.42, 48, 6, 32, 48. 0.53. 168,9.48.168,8.0.168.0.0.84.9,0,84 

2230 DRTR0, 9,84. 0.0, 20, 0,9. 28, 0,0, 28, 0,0, 84, 0,0,84 

2290 DRTR0, 252. 84, 8,253, 85, 0,48. 165. 0,48. 232, 8. 39, 168, 9, 48, 168. 0,46. 32,0 
2300 DRTR48, 168. 9, 42. 40, 0,32, 49, 0.50, 168, 0.43. 166/8,8, 168,8,0.84,8,0 
2310 DftTR34.9.0,S4,9.0.34,0, 1,68,0, 1.69,0.1,1.9,3,1 

2328 1^1(13.0.34,3, 1,85,12.0.165.12.0,232.51.2.168,51,8,168.8,192,32,0, 132. I6w 
2330 DRTfle.42,40,8,32,40,0, 10, 163.9. 12,163.0,0-168,0,0,34,0,0,84 
2340 DRTR8. 0.34, 0,0. 20. 0,0, 29, 0,0, 28, 0,8, 84.0, 9, 84 
2350 TJRTR3.0,84,3,1,S5,12.8, 165,12-0,232,51 -2- 168,51 ,0, 168,0. 192 
2368 DRTO32j0, 192. 168,0.42,40,9,32.48.0. 18. 168,0,12, 168,9.8.168,8 
2378 PRTR0. 34, 6,0, 34. 9.0. 84. 0,0, 34. 0,1, 68, 9,1, 69. 0.1, 1.0. 3-1 
2388 DRTR21, 63, 0-35, 127, 8,30, 12, 0,43. 12. 0,42, 140, 0.42. 12, 0.8. 12. 9,42, 12.0 
2390 DRTR49, 168,0,40,3,0,42, 172,0,42, 12.0,42,0.8.21,0,9.21 .0.8 
2488 DRTR21. 0,0, 20, 0,9, 29, 8,9, 29, 0,9. 21, 0.0, 21. 8,0 

24ie wrrn2i ,63.0, 05, 127,0.30, 12.0,43. 12.0,42. 140,9.42,12.0,8,12.0.42.12,0 

2429 DRTR40. 168,0.40,3,0.42,172,9,42,12.0,42,0.9,21,9.9.21.0.0 
r :439 DRTR21.9.9.21.0.8, 17 .64,0,31 .64 ,9.64,64,9.64,80.8 
2448 DRTA21.0. 192.33-64, 192,39.8.43.43.0.46,42. 128- ^94. 42- 0,204, 8, 3, 8 
2439 DRTR42, 3.0.49, 168.0.40,8.0,42,160,0.42,48,9,42,9,8,21,8,8,21.0,0 
2468 DflTflfil. 0.0,20,8.8, 20. 0-0, 28. 9. 0.21. 0.6. 21. 8.0 

2479 DRTR21.0. 192,85.64. 132-39. 0. 48 . 43. 0.43-42. 128,294,42,9,204,8.3,0.42.3.0 

2480 DRTR40. 168,0.49.8.0.42, 160,0.42.48-9.42.0,0,21 .0-9,21 .9,0 
2498 DRTR21. 0.9, 21, 8,0, 17, 64, 0.31. 64, 0,64, 64, 8, 64, 80,0 
2590 DRTR0- 44. 0,0, 78, 0,0, 297, 9, I -287. 128, 3, 231, 132. y-24 J, 192.6. 100.224 
25iCi DftTft?. 15.8.15.159,43. 15.62.112. 15-62. 112-3.158.48.9.140,144,12,1-' : ■ 
2520 DRTR14, 51. 240. 15. 121. 240, 6. 124, 32, 4, 243. 128, 3. ^43.192,1. 231, 128, 0.239.01 



TOUCHES DE FONCTIONS 



Voici un utilitaire en langage machine qui permet 1'utili- 

sation des 8 touches de fonction en mode programma- 

tton. 

Une fois le programme tape, n'oubliez pas de le sauve- 

garder avant de faire "RUN". 

Sebastien MOUGEY. 
Mode d'emploi: 

Apres un temps d'attente, pendant lequei le langage machine se 
met en place dans la memoire. le programme vous demande quel- 
les affectations vous donnez aux touches. 
Vous pouvez mettre n'importe quoi dans les limites suivantes: 
Vous ne devez pas utiliser le signe ":". qui est consid6re comme un 
separateur. 

Pour avoir un guillement, vous devez taper lapostrophe. 
Pour avoir une virgule, vous devez taper un point -virgule. 
Pour avoir un demarrage automatique de la fonction, vous devez 
taper la fleche de gauche (par exemple LIST + Heche en fonction 
numero t, donnera un listing sans avoir besoin de taper "RETURN" 
apres F1. 

Naturetlement, I'apostrophe et le point-virgule ne sont plus disponi- 
bles puisqu'ils sont utilises. 

Apres I'execution. vous pouvez taper "NEW" et commencer votre 
programme. Si vous tapez "RUN/STOP" f 'RESTORE", vous de- 
vrez taper "SYS 50000" pour relancer le programme de fonctions. 
Dans le listing, tous les codes machine sont desassembles sous 
forme de REMS pour ceux qui deslreraient modifier le programme. 



Suite de la page 1 
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330 PRINT 

335 IF F-I THEN PRINT "■•■1 

340 PRINT "JMIINSTPUCTION F 

345 INPUT "09r,K$ 

339 IF LEN<Kf)M3 THEN PRINT "OM1RXIMUM 13 CARRCTERES "GOTO 340 

333 N*<F)-K» 

360 0- LEN <K»> 

370 IF 0>14 THEN 400 

369 K*-K«+Q* 

390 OOTO 360 

408 GOSUB 699 

410 NEXT F 

420 print "3MMC0NPIRHBZ vous - 

430 FOR F-l TO 8 

440 PRINT •■FONCTION", F," ",N«F> 

430 NEXT 1 

460 INPUT "JBEUI OU NON".Z« 

470 IF LEFT* <Z*.U <> "0" THEN RUN 300 

460 POKE 49409-4 

490 SYS 50000 

495 END 

497 

438 REM TRRNSFORMHTION HEXfi > DEC 



REM 11 CPSR DROIT 



499 - 

300 X*- •912343678988CDEF" 

510 DE-0 

329 FOR S-1T02 

339 FOR T"l TO 16: S«T-l : IF MID» CM, 3,1) 
<> MID* CX«,T,1) THEN NEXT T 

340 DE-DE+B»a6T(2-SJ> 

330 NEXT S 
368 RETURN 
377 

578 REM MISE EN MEMOIRE DES FONCTIONS 

379 

600 D-F-l 

610 FOR H-l TO 13 

620 J-RSCC(MIDI(K*,H,I)j; 

630 IF J-39 THEN J"34 

640 IF J-53 THEN J-44 

630 IF J"95 THEN J-13 

668 IF J-203 THEN J-4 

670 POKE 49409+(D#13>+H.J 

680 NEXT H 

690 RETURN 



PANIQUE A LA CUISINE 



A vous de mettre la main a la pate, ou plutot les 
poings, avant que les monstres lances a lassaut de 
votre cuisine ne mettent les pieds dans le plat. 

Joseph MOKADIM 
Instruction; 

Le but du jeu est d'empecher une floppee de monstres. (10 en lout) 

d'attemdre la pile de gateaux que vous defendez. en les (rappant 

avec un poing monte sur un ressort. 

LOfsqu'un monstre arrive sur un gateau, il le mange, relourne au 

bout de I'ecran et vous perdez des points. 

Quand vous frappez un monstre: 

- S'il est bleu il recule un peu et vous marquez 10 points. 

- S*il est vert, il relourne au bout de I'ecran et vous marquez un 
nombre de points proportionnel a sa position. 

- S'il est rouge, il avance et vous perdez des points. 

Un compteur de temps est visualise au bas de i'ecran par une ran- 
gee de pouiets rotis qui se decomptent. Le jeu s'arrete lorsque vous 
n'avez plus de gateau ou que le compteur de temps est arrive a 0. 
Si votre score fait partie des 5 meilleurs, I'ordinateur vous fait voir 
votre classement. 

Au niveau de ladaptation pour un autre micro, si celui-ci ne pos- 
sede pas de tutin, le deplacement des figures sera plus long au 
niveau traitement car la methode serait de remplacer les lutins par 
des figures composees de caracteres redefinis ou non et, leur de- 
placement serait provoque par ['extinction de ces figures et leur ral- 
lumage a leur nouvelle position. A part cette ulilisalton particuliere 
des lutins, il y a les transformations necessaires de certaines ins- 
tructions inherentes aux differents Basic. 
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JO OPTION BASE 1 :: DIM SC0RE(5),NH« 

IS) 

SO RANDOMIZE :: CALL CLEAR :: CALL S 
CREEN(9):: CALL MAGNIFY(2)i: CALL CO 
LOR (1.7. 
3):: FOR 1-5 TO B i: CALL COLOR (1,4, 



NT!RND*236>-I29 :: C-INT (RND»1 1 ) 
: CALL SPRITE(9I,ASC(SEG«!M», I. 1 
,96, 128. 



190 ON ERROR 330 : 



CALL COLOR! 1,2,2 



CALL HOT 1 01 



-23 : 



"17 ! 



CALL L0CATE(4I.Y.)C)i: Y-Y*16 

120 NEXT 1 

130 X-120 ii V-3A :: FOR 1-9 TO IS : 

: CALL LOCATE(»I,Y,X)t: Y-Y*16 is NE 

XT I 

140 X-232 :: Y-17 ■■ FOR 1-14 TO 20 

:: CALL LOCATE («I , Y, X) : : Y=Y-16 ii N 

EXT 1 

ISO FOR 1-1 TO 300 ;: NEXT I 

160 CALL DELSPRITE(ALL):: DISPLAY AT 

M2,3)8EEP: "VOULEZ VOUS LES REGLES 7 



i EL5E 170 



190 CALL CLEAR i i CALL I 

IM V(10):i CALL COLOR (3, 9,2, 4, B, 2) i i 

FOR X-3 

TO G il CALL COL0R(X, 13,2)1 : NEXT X 
200 CALL HAGNIFY(3>it CALL C0LORI2.4 
,2,9,9,2,10,12,2):: FOR X?l TO 10 II 

V(X)-I 
:: NEXT X 

210 CALL CHAR(136,"0O01O23C4D93272Fl 
F0F0F1 120609088E02070D0F0FBF0BOC0FOF 
OEOFFOOO 

OFF",42,"OO00E718I8E7",96, "IC22C1192 
1E1120C") 

220 CALL CHAR(I4O,"03070F0ClF0AO0151 
FO 1 020409 1 C3EOOC0EOFOF8FBFOE0COCOCO2 
O 101 0387 

C", 132,RPT*< M 00",B)fc M 1C22CI 1921E1 120 
C-) 

230 CALL CHAR(104, "0O20904E3F3F7F3E" 
, 128, "0000000101O3020F0D0A3F2033202A 

3F0O00O0 _ _ 

S0B0C04OF03OBOFCO45404ACFC" > 

240 I-O ii FOR Y-l? TO 176 STEP 16 : 

I 1-1*1 11 CALL SPRITE(»t, 140,6. Y. 24 

0,41*12, 

12B,8,Y,37) j: NEXT Y 

230 Y-71 ii N-S :i CALL SPRITE (»I 1,1 

36,16, Y. 25, 412. 132,9, Y*2,41 ) II CALL 

HCHARI24 

,3, 104,29) 

260 T«-RPT*(CHR*(42> . 24 ) 6CHR» (96) i I 

DISPLAY ATU, lOBEEPt "SCORE 1 " ! 

270 CALL JOYSTd.DX.DY) 



*&%&&* 



280 IF DY- THEN CALL MOVd 

290 CALL TEMPS(F,A1>: : IF F- 

76" 

500 CALL KEYd.r .£) 

310 IF (-=16 THEN CALL TIR'Y. 



,T» 



520 CALL JOYSTd.DX.DY):: IF D» .'? T 

HEfl CALL HOV!Y.DY.N) 

130 f-INT(RND*10)+l ii CALL ABVfX,V< 

I.F.SC)!: IF F-10 THEN 360 
340 GOTO 270 

330 ON ERROR 35" :: RETURN NEXT 
360 FOR 1=1 TO 200 :: NEXT I :: CALL 
DELSPRITE(ALL) :: CALL CLEAR :: IF S 
C =SCORE 

'3)0R F«10 THEN CL=0 ELSE CL=I 
770 CALL CLAS5(SC. SCORED . NM* i ) . CL> 
~a" F.SC.Al-O ii CALL CLEAR :: GOTO 
240 

390 SUB MOV<Y,DY,N> 

40O IF Y<23 AND DY >0 OR YM35 AND DY 
"} THEN SUBEXIT 
410 Y-Y-DY*4 :i N=N-SGN(DY> 
420 CALL LDCATE(«1I,V,23,4I2, Y.2,411 
430 SUBEND 

440 SUB ADV(X,V!),F,SC> 
4S0 CALL POSITI0NI»X,PY,PX)si PX-PX- 

46U IF PX<80 THEN 490 

470 C=C*1 91 IF C-S THEN CALL COLOR! 

•X,7):: VtX)-2 :: GOTO 300 

4B0 IF C-IO THEN CALL COLOR(»X, 13) J i 

C,V(XI-0 :: GOTO 300 
490 CALL CGLDR(»X,6):! VCXJ-I 
300 IF PX<34 THEN CALL GAT!PX,F,SC> 
310' CALL LDCATE(«X,PY,PX) :: CALL SOU 
NDf 10, 110,0) 
520 SUBEND 

530 SUB TIR(Y.N,VO,T«.SC! 
540 CALL POSITI0N(«N,PY,PX> I t L-INT( 



:-41) 



♦ 1 



P-IN 



IF L>23 

THEN 610 
550 CALL 0ELSPRITEIM2) ii DISPLAY AT 

IP,4);SEG«(T«,26-L,L> :: CALL SOUND (1 
0,220,0, 

-7,0>:: DISPLAY AT (P, 4) : RPT4 ( " ".LI I 
: CALL SPRITE(«12, 132,9, Y*2, 41) 
360 ON V(N)+1 GOTO 370.390,390 
370 CALL RECUL(N.PX,PY)i i CALL SCORE 

(240-PX,SC)i I PX-240 :i GOTO 600 
390 CALL SCORE (10. SO I i PX-PX*B :l G 
OTO 600 

390 CALL SCORE1-32.SC) i ! FOR PX-PX T 
:-32 STEP -4 i: CALL 1 



,PXI 



II C 



-100, lt0*10»PX,0) I : NEXT P 

60O CALL L0CATE(4N.PV,PX>u CALL COL 

0RKN.6):: V(N)-1 

610 SUBEND 

620 SUB SCOREIS.SC) 

630 SC-SC*S :: IF SC<0 THEN SC-0 

640 DISPLAY AT! 1. 17>:USINQ "»4#«":SC 

I 

6S0 SUBEND 

660 SUB TEMPSfF.A! ) 

670 IF Al-1 THEN 680 ELSE X-32 :i Al 



6BO T-T*l :: IF T13 THEN SUBEXIT 
690 1-0 ii CALL HCHAR(24.I.:52>t: IF 
I i?. THEN F-l 1 
700 X-X-l II CALL S0UNDI-l0.4«0,r.lII 

CALL S0UND(-10.220.3> 
710 SUBEND 
720 SUB GAT(PX.F.SC) 

730 F = F»1 !S CALL SCORE <-240»PX.SC) i 
: CALL C0L0R!«F-I2. lO): i Pi-240 
740 CALL S0OND!20,-2.O> : i CALL SOUND 
130. -7,01 
730 SUBEND 

760 SUB RECULIN.PX.PY) 
770 FOR I-PX TO 240 STEP 24 :: CALL 
LOCATE!«N.PY, I): : CALL SOUND (-20O, 44 
O, 1/10,8 

BO. I/10.-3. I/10)!i NEXT I 
7S0 SUBEND 

790 SUB CLASS!SC,SCORE(> .NM*().CL> 
BOO ON CL-1 GOTO B30.BI0 
8IO DISPLAY AT (12.3): "VOTRE NOM |- i 
: ACCEPT ATI12. 171BEEP SI ZE (6) : NOn* 
82'.' FOR 1-1 TO 5 t! IF SC- -SCORE ' I i T 
HEN B40 



830 S-SCORE(I):: N4-NH4II):: SCORE 1 1 


)-SC :: NM«(I>-NOM» :: SC-S :: NOM«- 


N« 




B40 NEXT 


I 


8S'> CALL 


CLEAR :: FOR 1-1 TO S : : Dl 


SPLAY AT 


tO*I.4>SIZE(6>:NH»<l>:t: DI 


SPLAY AT 




(10*1. 1 I 


:US!NG "iWMMflSCOREmf il 


NEXT I 




860 CALL 


KEY(O.K.E):: IF E-0 THEN 86 







870 SURE 




HBO SUB REGLES 


890 CALL 


CLEAR :: CALL SCREENiHUii 


FOR I-S TO B :: CALL COLOR! 1 . 3, 10) ! : 
:: CALL COLOR < I. 2. IO) 


900 RESTORE 92i> :: FOR 1-1 TO 24 : : 


READ T4 


: DISPLAY ATII, ItiTCtll NEJ 


910 CALL 


KEY<Q,K,6>tl IF 1 17- THEN 


910 ELSE 


SUBEX1T 


920 DATA 


VOUS d«v*2 dflt'ndrc vm 


930 DATA 


gat«*U» tontri- l'Att«quip d* 


940 DATA 


■onttrtt. 


930 DATA 


Vous l«m repoutir: *n 1 •* 


960 DATA 


(r*pp*nl Oil point]. 1TIR) 


970 DATA 


Lm inon»tr»» rp<gi(itnt 


980 DATA 


«ulvint leur couleur-: 


990 DATA 


■•BLEUS.il* reculrnt un pen" 


1000 DATA "VERTS, il« rrpnrttnt am dm 



103O DATA Vnv« »ur 

1040 DATA mangi*. ,'■", ' 

1030 DATA m*nn«r plui 
1060 DATA memo g«t»«i 

1070 SUBEND 
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AL CAPONE 



En 1917, pour r6soudre le probldme de I'alcoolisme, le 
gouvernement des USA instaure la prohibition, interdic- 



•RCCEPTE giJE LR VITESSE SIMPLE" 
2210 Rfli=INKEY« IF PR*-"" THEH 2218 

tion de vendre toute boisson alcoolisee. Les gangsters 223a if rm* m t\* then poke6349S.b 

de I'epoque en profitent pour organiser des reseaux de H™ ^Smt^^l'^^ DE 

distribution clandesttns. les clans ennemis se livrent 

des guerres sanglantes. Vous commtssaire Eliot NESS, 

vous 6tes bloque dans un entrepdt clandestin, lors 

d"ur>e perquisition? Tout un gang est embarque dans 

un immeuble voisin et vous mitraille sans relache. Par- 

viendrez-vous a tous les descendre avant d'etre tou- 

che? 



22^8 PPIHTIS291." 3 EST LE PLUS FRCILE 

22-50 TiMIHkEV*: IF TIS-" THEM 2266 

2276 PLRYF»*G» 

2280 TI«VRL<TI*l IF TI'.MNKTI j DP TK1 OR TI,9 THEN J 

2236 TI=TIJ40»100 

2360 CLS3 

2310 PRINTI8234." MRNETTE< 1 > *l PRINT4266. " OU 



OBAGOI* 



32 



J.LDECOUX 
Vous pouvez regler de nombreux parametres de jeu: 
Vitesse simple ou double:Un POKE 65495,0 double la vitesse de 
tonctkxinement de I'ordinateur, mais certains Dragon 32 ne laccep- 
tent pas. 

Degre de difficulte du jeu: 9 niveaux de jeu sont a voire disposition, 
le 9" est le plus facile, le 1er le plus dur. 

Plus le jeu est dur. moins vous disposez de lemps pour descendre 
le gangster vous mitraillant. Passe ce delai, Tun de vos 2 adjoints 
est mortellement touche. 

Jeu au clavier: Vous deplacez la mire de votre fusil a lunette avec 
les touches f I — «- , vous tirez avec la barre d'espacement. 
Jeu a la manette drorte:Vous deplacez votre mire avec la manette 
drorte et tirez avec le bouton rouge. Attention, le maniement de la 
manette demande une tres grande precision, aussi le jeu vous sem- 
Wera tres difficile mais deviendra agreable au bout de 5 mm. 
Modifications possibles; Vous pouvez regler le niveau sonore en in- 
troduisant Vn, n allant de 1 a 31. dans la chame A# de la ligne 
1040. 

Si vous trouvez le maniement des manettes trap difficile, remplacer 
la ligne 7040 par: 

7040 IF JOYSTICK(O) >40 THEN A= A+ 16 

7041 IF JOYSTICK(0)< 20 THEN A= A-16 

7042 IF JOYSTICK(1 ) >40 THEN B= B+ 1 7 

7043 IF JOYSTICKOX 20 THEN B= B-17 

7044 IF A< OR A >255 THEN A= ABS(A-256) 

7045 IF 8< OR B >192 THEN B= ABS(B-192) 



100 GOTOlOCe 'PRESENTATION 
118 GOSU82880''INITIfiLISHTI&N 
120 &OSUB3000; 'DESSIH DU BOHHQMME 
130 GOSU64000;T>ESSIN C£ Lfi MIRE 
140 &3SUB5000:'DESSIH DES LIEUX 



2320 S*=1NKEY» IF S«<> 

2330 PLfiYF#+G« 

2340 CLS2 

2358 PPIHTeSSS." UH 

2360 PRINT9297." S' IL 

2379 PM00E3.1 

2380 RETURN 

2390 ' 



1" fiHO ■*.*< >"2" THEII 2320 



3016 'DESSIH DU BOUHOMME 

J320 • 

3030 C0L0R3.1 PCLS 
3040 LINE(9,28)-<21,40),PSET.BF 
3030 CIRCLE* 15. 10 ), 8, 4 
3069 PRINT(13.16>.4,4 
3078 ORflU■'BM^,20;G7F7;BM21,20F7C ,, 
3080 CIRCLE<25.28),2,4 
3090 GET(B,0>-<26,48),BO.G 
GOTO 130 



FP.IHTS298." CLRVIER'.Z) 



SI 90 C0L0R2,! 
3260 DRftW ,, 8M?0.l6"*C«<0> 
5210 DRAU"BM80.16"*C»<0> 
3220 DRRM"BM90,16"*CW0> 
3230 ORRWBM100, 16"*C»<8) 
3240 t>RAU"9M118.16"*C»<e) 
5250 SCREEN 1.0 
5260 RETURN 
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4010 'DESSIH DE Lfi MIRE 

4028 ' 

4030 PCLS'C0LOR4,l 

4040 LIN£(7,B)-<?.5j,PSET 

4050 LINE(7,9)-<7.14),P9ET 

4060 LINEC9,7)-<5.7),PSET 

4070 LINE(9,7)-C14,7).PSET 

4080 C1RCLE(7,7),5.4 

4090 GET(8,8)-< 13. 13), MIRE, C 

4100 RETURN 



i,PSET,8 



150 ' 

168 'SOUClE DU JEU 



170 ' 

180 GGSUB7188' 'APPARITION D'UHE CIBLE 

190 GOSU87000 

200 G£T<fl,8)-<ft+15,B*l5), RESERVE. G 

210 PiJKR,B)-'A+15,B+15>.MIRE.0R 

228 IF PEEK<345/=223 OR PEEKi S52S0 -'254 OR PEEKC £5280 >=>126 THEN FQRI-ITQ5 ' PLRY 

T253.cgoxcj:ccc£GCGCGCGCG" ■■ if pP0iNT<fi+6.B+6>«3 0RPP0lNT<m-6,B+6 

UCHE 

238 PUT( A , 8 )-< A* 1 5, B+ 15 >, RESERVE , PSET 

2*0 IF BN=I AND TIMER>TI THEN9000 -' PERDU 

238 GOTO 170 

2se . 



4110 

3000 ' 

3810 'OESSIN DES LIEUX 
5020 ' 

5030 PCLS COL0R2.1 

3B40 LIHE(63,20)-C192,120 

3030 F0RI«1T02:F0RN-1T03 

50G0 LINE<33+48*N, 47*1-20 )-<63*40*N, 47*1*20 >, PSET, B 

5070 NEXTN, I 

3080 PRINK 64, 22). 2,2 

5090 LINECB, 100 )-<63, 120), PSET, EF 

5188 LINE< 192, 188 )-( 233, 120), PSET, 8F 

3110 LIN£<0,182)-<255, 192), PSET. BF 

5120 DRRU"BM14,4;L606R6D6L6jBM25,4,L6DI2R6;BM36,4j 

L6D12Reui2(BM41, 10;R6U6L6D12;6 

M43,10FS;8MS8,4;L6O12Pe.BM32,10;R6" 

3130 C0L0R1,1 FGRI*1T02;F0RN-1 T03 

5148 LIHEC 31*4B*N, 47X1-22 >-<63*40*H, 47*1+22), PSET. B 

3158 NEXTN, I 

5168 LINE< 194, 132 >-'. 233, 113), PSET, B 

5170 LINE<2,102)-C61, 118), PSET, B 

3188 LINE<2, 184 )-<253, 190), PSET. B 



7010 'CONTROLE 

7028 ' 

7030 IF S«»"2" THEN 7060 

7840 fl- JOYSTKf >*3. 8 B- J0't-STK( I )*2. 8 

7830 RETURN 

7060 R-R+( ( PEEK( 343 )-223 >-( PEEKt 344 W23 ) )*16 

B-B+C < PEEK'. 34 1 )-223 )-( PEEK( 342 >-22 

3>)*17 

7070 IFR<0 0RR>236 THEH R-fiBS(R-236) 

7880 IF 9<0 0RB>192 THENB-RBS(8-192) 

7098 RETURN 

7180 ' 

7118 'RPPRRITION D'UN BOtJHOMME 

7129 

7130 IF BN-1 OR RNTX5X4 THEH190 
7140 2«RHD(16) 

7150 PUTfflP(2),BP<2))-CfiP(Z)*2€.BP<Z)*40),BO,PSET 

7160 SN-1 

7170 TIMER-TRO IF TI-TIMER<108 THEH TIMEP-TI-100 

7188 GOTOI90 

7198 ' 



TO 



8180 SC-S(3 
8198 RETURN 
B208 ' 



9018 'PERDU 



8010 'TOUCHE 

8028 ' 

8838 PUT(fl,B)-(R»15,B*15), RESERVE, PSET 

8840 COLOR 1. 1 ■LINE<RPt2),8PC2))-(fiPrZ)*26.8PCZ)*46),PSET,BF 
8050 BN-8 
8060 TR»TR*1 
8070 S<2)-SC2)*TR 
8830 F0RI»2T05 

8090 IF SM)=>10 THEN S< I )»S( I )-10 Sf HI >-S< 1*1 )+l GOTO0890 
8180 NEXT I 

8118 PLFlY , •T19,V10.flBCDCBfl' , 
8128 LINE<68,0)-< 181, 17), PSET, 8F 
8130 C0L0R2.1 

8140 DPRU"BM78.16"+C*(S<5)> 
8158 DRfiN ,, eH88.16"»C»<S<4)) 
3168 DRRWBM98, 16"*C*(S<3>) 
8178 DRRWeMlOO.ie'^CKSCZ)) 
*10080*S(4>*1000+S<3)*100+S<2)*18 



1818 •PRESENTRTIOW 

1828 ' 

1838 PCLEAR8 CLERR1000 

1 849 Ma " L 1 903GCMCMFP1 503P.04F P 1 503(*>#FP5" 

1858 &»»"FGG»RFGRP15EGP15FP5" 

1 068 C*- " 04CC03BG4DFRP 1 2GEDGP5 11 

1070 D»»"Q4FGG4F-FGl ; iPi;FGP15fiFGfiP15FGP15" 

1888 Et=''RFGAP!'!:EGP15F" 

1090 F«-' i T30.CCtODiEFF4V»PEDiDC&r,-' 

1188 G«='■CC»l.D»EFF»CC*RR•B , ' 

1118 CLS8 

1120 FORi-0 T02 PRINT»96+I*32+14,"", F0RN-1T05 RERDR iPRlHTCHRK R+16), 

1138 DRTR142.141.129.138, 128. 139. 135, 128. 138, 128, 138, 133. 128, 139- 131 

1148 FORI-8 T02 PRIHTft328+32*I*7, i "', FORM- 1 TO 17 RERDR PPINTCHR«C fi* '. ' 



I 150 D0TRI42. 148. 126, 142. 141 , 126, 142 

1 168 DRTR138, 123. 128, 139, 135. 128. 139, 135, 128 

1178 DfiTfH39. 131,128,138,133,128, 138.126, 128 

1168 FDRI-8T063SET(I,8,1> SET( 1,31, 1 y NEXT 

1199 FCJRI-1T038 SETrB, 1,1), SEK 63.1.1 ) NEXT 

1280 PRINTIM34,"»o-it"CWR*U28rPJi" i CHR*< 12S 

1218 PLH , (' , '/Ft*,/6t,XR«.XC«iXR«iX6*.XD*;XE«;" 

1220 CLS2 PRINT9232," VOULEZ VOUS ". PPINT4264 

1230 S*-IMKEV« IF 91m" THEN 1238 

1240 PLfiYF»*G» 

1230 IFS*=-Y-THEH GOSUB10800 

1260 GOT0118 



42.141.126,139, 133,126, 142,148 
38.133.123,138.141,128,139.131 
39. 133, 126. 138, 133- 128, 139, 131 



CHR*'-/26)" ^'CHft«<12a/■d♦co^J' , ■. 



2810 ' IHITIRLISfiTION 



2030 DlHeCK48^,MIRE(Sy- RESERVE' 6). ftp-' 16y.BP' 16> 

2840 G-0;TP-8 BN-8 A-1I& B"98 

2838 DRTR75.27. 75, 74. 1 13,27. 1 15, 74, 153-27, 155, 74 

2668 DRTR28. 39. 210, 59. 6, 141, 24, 141, 36. 141, 36, 141, 88. 141 ,268, 141 . 132, 141 , 72. 141 

2676 FGRIMT016 REfiDRP' 1 > RERDBP' I ) MEXTI 

2088 C» f 0)-"U12L6D12fi6" 

2898 Z*' 1 ;-"U12G«" 

2180 C•^'2>-''L6U6ReueL6 , ■ 

2110 C•'3>=■"L6R6U6L6R6lJeL6'• 

2120 C*4y-' , BM-2,+e,U7DlP3L6E6- 

2139 C»<3v-"L6P6'J6L6JJ6R6" 

2148 c^ey'Leu^RtLerjeReoe" 

2158 C»(7 J -"BM-6,8.U6E6L6" 
2160 C«f8>-"L6U6P6U6L6D6P6D6" 
2170 C»<9J-"L6»6U12L6D«R6- 

2190 CLS3 PRINTiii66," VITESSE SI«PLE< 1 > '} >PRIMT«99*ffrRIH8»C9," " ). "OU". STRING* 

<9." ">j 

2200 PRIHTi?238," VITESSE DOUBLE' 2 J 




9630 PMODE3, 3. SCREEN], B^PCLS 

9840 F0RI-1T098STEP18 

9030 CIRCLEC 128,96), 1,3 

9060 NEXT I 

9070 PLRVT2" FORI = lT02PLRV"03L16BR»BCL8DtE" NEXT! 

9888 G-G*l 

9898 PM00E3 . 1 ■ SCREEN 1 . B ■■ COLOR 1 . 1 

9100 LINE(RP(Z).BP(Z))-i:RP<Z)+30.BPtZ)t40),PSET,BF 

9110 IF G<3 THEH TR-0:BH-0:GOTO170 

9120 G-0TR-0 

9138 CLS3 

9148 PRIHT9184." U otr«-.CHR»<128);"«cor.";STftINC«(3,lZ8)iSC; 

9130 IF SC->BC THEN BC-SC 

9160 PRIHT»136."r<*iU«ur" jCHR»( 128); n *cor»"iBCi 

9178 PRIHTf»487. , 'UM RUTRE JEU <Y/N> '"» 

9188 ft»-INKEYt' IFR*-""THEN 9188 

9190 IFR»*"N" THEN EMO 

9200 TR-0 BN-0 FQRI-2T05'S( I )-0 ^ NEXT I : GOTO140 



9210 

18000 ' 

10010 'REGLES 



10020 ' 

10048 PRINTPRINT"CHtCRGO LES RNNEES 30 " ■ PRIHT PRINT"LE ROYRUME DE LR PEGRE 

. LES-'PRINT^GRNGSTERS RPPRRR1SSENT ET DIS-" 

18830 PRIMT'PflRftlSSEHT UN PEU PRRTOUT DftHS L6 VILLE EN TOUTE IMPUNITE C DU" PRI 

MT"M0INS POUR LE MOMENT ). " 

18860 PRINT PP1HT' , V0US,VRILLRNT DEFENSEUR DE L' OR-DRE i VOUS DEVEZ LES EL1MINER UN 

RUN , MftIS fiTTENTIOM SI VOUS ETESTROP LENT , C'EST VOUS QUI ETES EL1MINE ," 
18878 PRINTi»483, ,, *PPu»»^' , jCHR*C128>i"»ur-,CHR»<12e),* : un»"jCHR»' 128 )i "touch*". 
10060 IE INKEV*-"" THEN 10080 
18090 PLflYF«*G* 
10100 CLS 

18118 PRINT PRINT-PLUS VOUS EN TOUCHEZ , PLUS VOTRE SCORE RUGMENTE RRPIDEMENT , E 
T PLUS VOS REFLEXES D01VEHT ETRE RRPIDES ." 

18128 PRINT PRINT" J#ux".CHR«( 128), "*v«c" iCHR«( 128 >, ■ U" ,CHR«C 128), "miMtt*" 
10130 PRTNT-VOUS RJUSTEZ VOTRE TIP RVEC LR MANETTE DROITE I LR GfiCHETTE C'EST 
LE BOUTON ROUGE 

10140 PRIHTa483,"»PPus»»r"' ;CHR«< 128 >. "•ur"iCHR»( 128). "un«" iCHR«<: 128 )i "touch*-" i 
18158 IF INKEY*-"" THEH 18130 

10160 PLfiYF«+G». CLS -PRINT- PRINT" J*u»" ;CMR« 128 ); "*u";CHR«< 126)- "ct*vl»r" ■ PRINT"V 
OUS RJUSTEZ VOTRE TIR RVEC LES" ' PRINT" TOUCHES FLECHEES . VOUS TIREZ " ■ PRINT "RVE 
C LR BflRRE D'ESPRCEMENT . " PRINT"BTTENTIOH RPPUYEZ SUR UNE SEULE" PRINT" TOUCHE R 

LR FOIS ,' 
10170 PRINT:PRINT"vlU»»*".CHR»( 126 ). "doubU" 
10188 PRINT"CEPTRINS DRRGONS NE PEUVENT " PRINT'^ONCTIONNER OU'EN VITESSE SIMPLE 



PRINTil448,"RTTEHTI0N CERTRINS DPRGONS ' 



10198 PRIHT>?485," 
10288 IF INKEY*-" 
19218 IF IHXEY»-" 
10228 ' 



PPt'«*r'"iCHR«< 128 )i">u^".CHR«( I28)i ' 
THEN 10200 
THEM 10210 ELSE PLft'iT»+C« ■ RETURN 



",CHR»':i28)j"touch»"i 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENT1EL DE 340 FRANCS POUR 52 NUMEROS AU UEU D5 
52 X 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: MATERIEL UTIUSE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIES : 
REGLEMENT JOINT : DCHEOUE DCCP 



CALQUE 



Un super calc pour les heureux possesseurs de HP41, 
quelle aubaine! 



QUELQUES NOTIONS SUR LE CALQUE: 

II s'agit en (ait d'un tableau, compose de lignes (L) et de colonnes 

(C), que Ion dimenstonne seton ses besoins. c'est k dire que Ion 

fixe le nombre des colonnes et le nombre de lignes. I 'intersection 

dune ligne {numerotee de I a 1) et dune colonne (numerotee de I a 

c) c'est une case (D) numerotee de I.I a I.e. 

II y a 4 operations essentieltes: 

1. Entree des donnees (nombre ou chaine alpha) dans une ligne, 
une cotonne. une case. 

2. Calcul, pouvant porter sur une ou deux lignes. colonnes ou 
cases. 

3. Lecture des resuttats, c'est a dire lecture du tableau. 

4. On peut ensuite modifier une donnee de depart et demander a la 
machine de recalculer le tableau, les instructions ayant ete memori- 

LES INSTRUCTIONS: 

1. Initialisation :T 

Dimensionne le tableau "Itxc" R/S. Important: le..257. 

2. Ecriture: "W 

"WC n° colonne ou ligne ou code de case" R/S. la machine de- 
mands ensuile les donnees en affichant "rang = valeur actuelle de la 
case" R'S. Si on ne desire pas changer cette valeur, ne rien taper. 
Dans tous les cas on passe au rang suivant, ou apres le dernier a 
rinstruction suivante par R/S. 

3. Escape: "H" en mode user. 

Permet de retourner a n'importe quel moment a la demande d'ins- 
tnjetion "?*. 

4. Lecture: "G". 

Meme fonctionnement que "W". 

5. Calcul: *= * 

Toutes les fonctions sont representees par mnemonique de deux 

symbotes (voir liste infra). FF. On notera A le type de I'objet calcule: 

A= L.C ou D.X.Y et Z representent les codes (n° colonne ou ligne, 

code case). 

Operation unaires: - = FFAXAY= T. 

Operations speciales: effacement: "= CLAX". 

Stockage: "STAX= Y" mais pour un scalaire "STA n= X", ou n est 

ce scalaire. 

Toute autre operation avec un scalaire (c'est a dire un nombre "= 

FFAX n= Y). 

Statistiques: "= AXAX". On aura pris soin auparavant de faire REG 

a, de telle sorte que a tc+ 5. Pour plus de details, se reporter au 

paragraphe "statistiques". 

6. Recaic: T 

Repond a la question: "qu'aniverait-il si?". les instructions sont sto- 
ckees dans un fichier ASCII, sous forme de fichiers correspondant a 
des series de calculs differentes. Avant de calculer: "= et ltflW , puis 
apres caJculs: "= autre en-tele". 

Attention, un en-tete ne doft pas comporter d'espace ni de chiffre. 
Pour reefectuer les calculs: "?en-tete". 

7. Editeur:Optionnel. 

Assigner d'abofd aux touches de m6me nom "H.L.K.N.O". Pour se 
depiacer dans le tableau (mode user): "H" ramene a la case l.l.'O" 
va vers le bas. "L" vers !e haut. *K" vers la gauche et "M" vers la 
droite. Si on desire changer la valeur de la case sur laquelle on se 
trouve: taper la nouvelle valeur puis "N". Attention, la presence de 
l'6dileur diminue la valeur maximale de 1c de 13 cases. 

8. Delete: *X*. 

Suporime le ou les fichiers suivant I'en-tete designe, cet en-tete 

compns:'X en-tSte* R/S. 

Description du programme: 

Registres: 

ROO: 1 

ROt: Code de dimension. 

R02:FF 

R03: scratch et 2* operande. 

R04: 1° operande. 

R05 et suivants: tableau. 

Flags: 

F03 set: mode ecriture recaic. 

F04 set: calcul avec scalaire. 

Labels: 

73: init.63: recaic. 87: ecriture. 71: lecture. 61: calcul. 88: delete. 

68:D. 67:C.76:LLes autres correspondent aux operations. On peut 

tes supphmer ou en rajouter a volonte avec des labels different^, le 

code est le suivant: Somme des valeurs ASCII des deux composan- 

tes de FF diminuee de 69. 

A I'appel, le Flag 4 est mis si la deuxieme opeYande est in scalaire 

les deux operandes etant en X et Y. le resultat doit etre place en X. 

Mise en oeuvre: 

i. Memory Lost. CF 29. SF 28. Vous Iravaillez en format anglais (le 

point remplace la virgule). Creer un fichier ASCII sous n'importe 

quel nom et s'y positionner. 



2. Entrer le programme, packer. 

3. CAT1 suivi lout de suite de R/S: user;"H": la machine vous de- 
mande les instructions. 

4. Taper les instructions puis les valider par R'S. A chaque fois que 
la machine s'arrete, saut avec "W", on peut utiliser la pile entiere. 
Configuration: t 41CV en 41C avec modele quadram + module X- 
functfon. 



EXEMPLE D'UTILISATION : 










1 


2 


3 


4 


5 


1 


1 


1 


2 


2 


999 


2 


2 


1 


3 


6 


999 


3 


3 


1 


4 


12 


999 


4 


4 


1 


5 


20 


999 


5 


5 


1 


6 


30 


999 




"15 x 5" 

"=ESSAI" : en-tete de notre fichier. 

-=wcr 

Entrer les donnees de la premiere colonne. 

-— STC 1—2" : stocke 1 dans la deuxieme colonne. 

"— I-C1C2—3" : additionne les deux premieres colonnes et 

stocke le resultat dans la troisieme. 
"-/2C1-4" : le carre de C1 est stocke en C4. 
--STC 999=5" : stocke 999 en C5. 
"*» +C1C4" : stocke la somme de C1 et C4 en C4. 
"-FINESSAI" : ferme notre fichier. 

A n'importe quel moment on peut verifier les donnees par 
"GC2", "GC3"... 

Changer la valeur de la case 4.1 : "WD4.1". R/S. 3. R/S. 
Recalculer le tableau avec cette nouvelle valeur ; 
-?ESSAI", R/S. 

STATISTIQUES : 

Apres avoir fait "= AXAX". sortir du mode alpha. En faisant 
MEAN ou SDEV, onobtiendralamoyenneou I'ecart typede YW 
en Y, et celle de X en X. On peut I'utiliser pour des calculs de 
regression ; en designant parsi le p rentier regis trestatisti que, 



y=a+bx 


: y-ae" ; y- 


a+blnx : y-ax° 


A= a 


Ina a 


Ina 


B- b 


b Inb 


Inb 


X- x 


x Inx 


Inx 


Y- y 


Iny y 


Iny 


. S5xs 


- S2XS3 „ 


S3 - s6xA 








(S1> 


' - S6XS2 


si 


OPERATIONS DISPONIBLES : et labels corresnondan 


LO 86 


LOG 


FR 83 Partie frac. 


LN 85 




/2 75 


Et 94 


etx 


+ 06 


Dt93 


totx 


-08 


S46 


SIN 


/ 10 


S-59 


ASIN 


X 05 


C30 


COS 


% 00 


C- 43 


ACOS 


%C 35 %ch 


T47 


TAN 


M- 69 MOD 


T- 60 


ATAN 


1 57 puissance 


FA 66 


FACT 


I 89 statistiques SCT10 / S 


ST 98 


stockage 


Ml 81 minimum 


<>93 


echange 


MX 96 maximum 


-?55 


test d'egali 


e 1/ 27 l/X 


CL 74 


effacement 


!2 75 X* 


//25 


ABS 




IN 82 


INT 





18:11 25.83 
81«L8L H 

82 CF 83 

83 ■?" 

84 DON 

85 PROMPT 

86 HOFF 

87 fiTOX 

88 XEQ IND X 

89 GTO K 
18«LBL 73 

11 •n>- 

12 MM 

13 EHTERt 

14 LOG 

15 1 



16 * 

17 WOT 

18 XOY 

19 MM 
28 STO 81 

21 « 

22 LRSTX 

23 E2 

24 / 

25 « 

26 4 

27 * 

28 E3 

29 I 
38 4 
31 t 



32 STO 88 

33 RTH 
34»L8L 63 
35 SF 83 
36«L8L 68 

37 8 

38 SEEKPT 

39 POSFL 
48 GETREC 

41 FS? 83 

42 GTO 87 

43 RCL b 

44 SF 25 

45 BELREC 

46 FC?C 25 

47 RTN 



48 STO b 
49«LBL 87 

58 SF 83 
5I«LBL 71 

52 fiTOX 

53 flNUK 

54 XEQ INI! 

55 STO 82 

56 1 

57 STO 83 
58»LBL 12 

59 eta 

68 RCL d 

61 FIX 8 

62 BRCL 83 

63 STO d 

64 "F=- 

65 RCL IN] 

66 flRCL X 

67 PROMPT 

68 FS? 83 

69 STO IND 
78 1 

71 ST* 83 

72 ISG 82 

73 GTO 12 

74 RTN 
75«L8L 99 

76 EHTERt 

77 INT 

78 1 

79 - 

88 RCL 81 

81 « 

82 XOY 

83 FRC 

84 E2 

85 « 

86 * 

87 4 

88 ♦ 

89 RTN 
98«LBL 67 

91 RCL 88 

92 t 

93 RTN 
94«LBL 76 

95 RCL 81 

96 • 

97 4 

98 » 

99 EHTERt 
188 EHTERt 

181 E3 

182 / 

183 t 



184 1 

185 t 

186 RCL 81 

187 - 

188 RTN 
189«L8L 61 

Y 118 SPPREC 
I11»L8L 87 

112 FS' 83 

113 GETREC 

114 fiTOX 

115 PTOX 

116 » 

117 69 

118 - 

119 STO 82 
128 32 

82 121 POSft 

122 X>8? 

123 SF 84 

124 fiTOX 
62 125 STO 83 

126 8 

127 ANUH 

128 X=8? 

129 RTN 

138 XEO IND Z 

131 STO 84 

132 -W 

133 RCL 83 

134 FS? 84 

135 32 

136 POSfl 

137 X>8? 

138 flROT 

139 RHUN 
148 FC? 84 

141 XEO IND L 

142 X<> 83 

143 61 

144 POSfi 

145 X>8? 

146 fiROT 

147 fiNUIt 

148 XEO IND Z 

149 STO t 
158»LBL 81 

151 SF 25 

152 RCL IND 84 

153 FC? 94 

154 RCL IND 83 

155 FS? 84 

156 RCL 83 

157 SF 25 

158 XEO IND 82 

159 STO IND ( 



HP 41 



168 FC? 84 

161 ISC 83 

162 ISG 84 

163 •• 

164 ISG ( 

165 GTO BI 

166 CF 84 

167 FC 83 

168 RTN 

169 GTO 8? 
178»LBL 36 

171 LOG 

172 RTN 
173«L6L 85 

174 LN 

175 RTN 
I76«LBL 94 

177 EtX 

178 RTN 
179»LBL 93 

188 18tX 
181 RTN 
182»LBL 95 

183 SORT 

184 RTN 
185»LBL 75 

186 Xt2 

187 RTN 
188«LBL 27 

189 l/X 
198 RTN 
191»LBL 46 

192 SIN 

193 RTN 
194«LBL 59 

195 BSIN 

196 RTN 
197»LBL 38 

198 COS 

199 RTN 
288«L8L 43 

281 RCOS 

282 RTN 
283»LBL 47 

284 TON 

285 RTN 
286«L8L 68 
297 BTflN 
288 RTN 
289«LBL 66 
218 FACT 
211 RTN 
212«L8L 98 
213 RTN 
214«LBL 53 
215 XO IND 84 



216 RTN 
2I7«LBL 55 

218 -X«Y- 

219 X«Y? 

228 RVIEU 
221 RTN 
222»L8L 74 

223 8 

224 RTN 
225»LBL 86 

226 ♦ 

227 RTH 
228«LBL 88 

229 - 
238 RTN 
231«LBL 18 

232 / 

233 RTN 
234«LBL 85 

235 « 

236 RTN 
237»LBL m 

238 X 

239 RTN 
248«L6L 35 

241 XCH 

242 RTH 
243»LBL 69 

244 NOD 

245 RTN 
246HBL 57 

247 YtX 

248 RTH 
249«L8L 96 
258 X<=Y' 

251 XOY 

252 RTN 
253»LBL 81 

254 X>Y? 

255 XOY 

256 RTH 
257»LBL 25 

258 IffiS 

259 RTH 
268«L8L 82 

261 IHT 

262 RTH 
263«L8L 83 

264 FRC 

265 RTN 
266»L8L 89 

267 £♦ 

268 LASIX 

269 .END. 



Suffe de la page 2 



>k 



z% 



8A 



535 POKE Mi*99. e 

M9 POKE ni*i3Z.23 

5*5 POKE Mi-132,0 

5*7 LET r>C*l 

549 IF OU THEH GfjTO ?W 

556 RETiJPM 

553 REM »0"i»-»*rif>»-»t# 

568 LET Ml-fti*5e6 

565 POKE MI, 46 

579 POKE Ml, 8 

575 POKE MI-33,46 

see poke Mi~33-e 

585 POKE Ml-66.46 

5*8 POKE Ml-66,9 

595 POKE MI-99,46 

68e POKE Ml -93. 9 

682 LET OC*l 

684 IP C"D THEM GOTO 788 

615 RETUPH 

665 REM 

699 REM t.jvir-«fcoul«. 

695 REM 



789 PPINT FIT 9.11,-*" 
795 PPIMT P.T 19. Hi "■" 
718 PPIMT ftT 18,18."-*"" 
715 PRINT HT 9,18i"-*.- 
728 PPIMT RT 19, 9i-"wmr— 
725 PRINT HT 9. 9. " ■^■■m" 

738 ppint at te . 3 1 " "wmmr- 

735 PPIMT RT 9.8."^KMft»" 

749 PRINT RT ■!! ill I 

745 PRINT AT 9,3;" 111 I " 
758 PPIMT RT 18.7." tmwl ■ 
755 PPIMT RT 9,9;" -•- " 
769 PPIMT RT 1R. 9; - , -4NTS ■■ 
765 PPIMT RT 9,18;" » - 
779 PRINT HT 18. 8; "■(■r B r 
775 PRINT RT 9.11," ■ 
789 PPINT RT 19,8, ".I !*»•" 
785 PPINT RT 8.2. "VOS ENT4EMIS V 
O'JS OHT COiJLE..." 

739 GOTO 289 
6985 REM 

6998 PEM choiy«niv«*uy 

6995 PEM 

7890 GOTO 7188 

7981 CLS 

7883 PPIMT RT 5-5. •ftivwtmHf t 

cult**" 

7885 PRINT RT 7,7, "ft - , rj^fit* 

nt" 

7819 PPINT RT 9.7. M -> ch<«P i 

on" 

7815 PPIMT RT I5,3i"TRPEZ LE NIV 

ER'J CHOISI..." 

7920 IF IMKEY»-"1- THEM COTO 783 

7825 IF INKE'r^-'-S" THEN GOTO 785 



7839 

7935 
7949 
7045 
7P47 
7831 
7855 
7868 
7063 
7870 
7875 



7099 
7895 
7897 



IF tWCEYta" THEM GOTO 7020 
LET L-500 
LET VM9 
LET Z-6 

LET D-3*INT rRNC>*4) 

GOTO 7875 

LET L-I080 

LET V-I0 

LET Z-8 

LET 0-2+ IMT <RH1>*3> 

LET P»8 

LET 3=0 

LET G»9 

LET LI 1-385 

LET LI2-373 

RETURN 



THEN GOTO 712 
THEN GOTO 788 



?im 


PR IN 


HI 


10 


B(« 


ltd 


»-'jl 


'*■ 


■ < 


' n 1 1 


rtu 


WIN 


HI 


1 1 


8;" 



7113 IF INKEY«-"0" 

6 

7129 IF IMKEY«-"N" 



7123 IF IMKEY»-"- THEN GOTO 71 IS 

7126 CLS 

7127 PRINT TR6 t3,"r*flt4.»" 
7123 PPIMT TAB 13*" " 

7129 PPIMT RT 4 f 0|-V0(M MRV1CIJEJ 
EM PLEIME MER" 

7130 PRINT RT 5.0,"RVEr. VOTRE ^r 
Oi*W .TOOT EST" 

7131 PPIMT RT 6.0--CRLME . MR1S 
SCJC'RIH , VOUS" 

7132 PPIMT RT 7-9.-RPERCEVEZ DCS 



f.'iof% ET DES" 

7133 PRINT RT 3.0. "soi'a-«#rini . 
IL VWS FflUT HLORS" 

7134 PPIMT RT 9.0. "TOUS LES DESC 
EMpRE SI VOUS NE" 

7135 PPIMT HT 10,0,-vrnjLEZ PRS r 
OULEP" 

7136 PPINT RT 14, Ij-fl ■> pniJP CO 
ULEP LES S-MRPINS" 

7137 PPIMT m 16.1,"il »> POUR OF 
SCEMORE LES RVI0H8" 

7155 PPINT RT 21 .21 . "*ee„*«T». " 
7160 IF INKEY«-"" THEM GOTO 7160 
7165 GOTO 7001 
7999 REM tltr« 

"" FOR J-5 TO 14 STEP 9 
8963 PPIMT RT J.4. ti r*ll ttttt't 
I'Tiniiu 
5910 N€XT .' 
313 FOR j-4 TO 26 STEP 22 

)29 FOP l-6 TO 13 
8023 PRINT RT L.J;-«" 
8938 NEXT L 
8935 HEXT J 
8046 FOR J=l TO 10 
8945 P PIMT RT !-.-:." ■^■■■^■■H 

^059 PR INT RT 8.6j"1 W^T— I | 

8033 PRINT RT 9.6. "■ - I -J — i - I 

VI ■■■ 
3060 PRIMT RT 10.6. "■ ■■ UmUm 
I ■■■- 

3063 PRINT RT ii^.-BVi^H 

89/8 PRINT RT 1 2,6." IB^B^HH^Bi 



8975 PRINT RT 7,6;" 
8088 PRINT RT 8,6j" 
8083 PRINT RT 9.6;" 

a .m ' 

8090 PPINT RT 10.6." 

nir 

8093 PRINT RT II. 6j" 
9100 PRINT RT 12,6;" 



SOLUTION DE L'HIPPOREBUS : 


10 
20 


1- OR 
READ 


[ = 1 
X 


TO 


14 




J?! 


SO 


PRINT C 


X) 




40 


NEXT 


I 








^33 


SO 


END 










/&r\ 


60 


DATA 


68 


79 


85 


66, 


Mx| 






76 


6S> 


'.. 


68, 


fml 






6=7 


78, 


83, 


73, 


%£$ 






84 


69 
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DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix ail MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bien original dans cette 
tormule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eui-mftmes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGIC1EL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du Don de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Bonne chance! 



Reglemen! 

ART 1 HEBDOGIC1EL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 Ce concours est ouvert a 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuiternent sur de- 



mande par la redaction de notre 
journal constitue lacte de can- 
didature 

ART. 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'onginalite les logi- 
ciels qui sont pubhes dans le 
journal 

ART 4 Ce sont les lecteurs qui, 
par leur vote, determment les 
meilleurs logiciels mensuel et 
trimestriel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
auplustardun mois apres la clo- 
ture du concours trimestriel 
ART 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Pans. 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART. 9 : La participation au con- 
cours entraine ['acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
tort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour u n mem e 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn 

Pre no m ; 

Age Profession : 

Adresse : 

N 3 telephone : 

Nom du programme : 

Nom du matenel utilise 

declare etre lauteur de ce programme qui nest m une imitaton m ime 
copie dun programme existant. Ce programme reste ma propriete et 
j'autonse HEBDOGICIEL a le putriier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un d escn p tif getailie du matenel uWise, 
dune nolice d'utilisation du prog ramme . Les supports des program- 
mes pubhes sont conserves , n'ou pit ez done pas den faire une coce 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLiER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emoJoi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer piu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres hgnes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme et le materiel auquel il est 



destine. Nous pourrons amsi re- 
perer facilement les listings, une 
fois sortis de rimprimante. 

• Duptiquez piusieurs tois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arnver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com plete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveioppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pes timbrees. metlezsimplement 
les timbres joints a votre envoi. 

• Exphquez les particulantes de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'aulres ordinateurs 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND. PENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE, POKER, JACKPOT 
BOWLING. BLACK JACK. LABY- 
RINTHE, MEMORY SIMON. 421, 
OTHELLO, SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : 80RDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN. PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 





N-33 


N-34 


N°35 


N-36 


APPLE II 


BRUITAGES 


BATAILLE NUCLEAIRE 


ROBIN DES BOIS 


MONITEUR 


DRAGON 


TRAITEXT (1) 


TRAITEXT (2) 


CUBES 


MOTOS ENDIABLEES 


CASIO FX 702-P 


MEMENTO 
ELECTRONIQUE 


YAHTZEE 


PRISONNIER 


LABYRINTHE FOU 


COMMODORE 64 


CONCENTRATION 


NEPTUNE 


AVION 


LESONNEUR 
DE PAQUES 


COMMODORE 
VIC 20 


BOLIDE CIRCUS 


HELICOPTER 
PILOT 


FLIPPER 


MACHINE 

INFERNALE 


SPECTRUM 


NOISETTES 


DEFIMATH 


BLACK JACK 


REDEFINER 


HP 41 


GEANT 


LE TOURNIS 


REFLEXES 


TRAQUE 


MPFII 


MULTI-UT1LITAIRE 


CARNET D'ADRESSES 


ARAIGNEES 


KIBUR 


ORIC1 


MUSIC-MACHINE 


BOlTE NOIRE 


KONG 


PUISSANCE 4 


PC 1251 


CALCUL MENTAL 


GESTOCK 


TUNNEL 


DONJON ET DRAGON 


PC 1500 


SCRAMBLE 


PETIT TRAIN 


CLIFF HANGER 


GESTION D'ECRAN 


CANON X-07 


KING FROG 


TRIPOSAUT ATHLON 


CARRE MAGIQUE 


CHENILLE 


HZ 80 


DES CHIFFRES 
ET DES LETTRES 


SUPERGLOUTON 


OPERATION 
DRAGON (1) 


OPERATION 
DRAGON (2) 


ZX81 


POKER 


SUPER ARDOISE 
MAGIQUE 


TOUR DE CARTES 


MONSIEUR X 


TRS80 


GESTION (1) 


GESTION (2) 


ANGLAIS 


MICRODIS (1) 


TI99/4A 

(basic simple) 


GALACTICA (1) 


GALACTICA (2) 


LA GRANDE 
EVASION 


PATROUILLE 
LUNAIRE 


TI99/4A 

(basic etendu) 


COMPTE BANCAIRE 


PHOBIA 


DUEL 


MEMORI 


TO 7 


MASTER 


ISOP1CTOR 


LABY 3D 


TRAC MAN 



AUX URNES ! 



DATE LIMITE D'EN- 
VOI DES BULLETINS 
DE VOTE : JEUDI 28 
JUIN MINUIT. 



Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplirle bulletin devote ci-con- 
tre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que celui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix du gagnant). 

- Reportezle nom de ces deux programmes surle bulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MENSUEL. 
27. ruedu General Foy,75008PARlS, avant lejeudi 28 Juin 
a minuit. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman. leur cousine et la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal ! Mais comme chacun d'eux fera la meme chose, eela 
n'est pas bien grave ! Toutefois, toujours dans un souci 
d'equite, nous n'accepterons que les ORIGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 28 Juin minuil a HEBDOGICIEL, 

concours mensuel, 27 rue du General Foy, 75008 

PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 

NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME: 

NOM ET PRENOM : 

ADRESSE : 




DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermds, nous les avons testes pour vous ! 








i (as mellfeura logic!*!* eclueflenienf d/aponfbfea e 
pretendona paa qua cette Hate eat complete et dalMtlv* et (1 est eWdenl 
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• ae/ectfonne pour v 



n France. fVouane 
if que flOVfJf raloutarona rigu- 
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rfence nous pourrona rapldement arrlVer a falre be/aaer tea farl/a dea fourn'aaeura pour attelndro 
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SIMULATEU R DE VOL pC 150 o 



Un simulateur de vol (presque!) grandeur nature avec 
trace, en temps reel, de vos deplacements sur I'impri- 
mante:GeniaH. 

Charles CARON 
Mode d'emptot: 

Pour commencer faire DEF A Vous voyez a!ors apparaitre sur voire 
ecran de controie le paysage de voire pisie de decollage 
Vous pouvez a ce moment, meltre le contact en appuyant sur la 
louche ".", et commencer voire penple, ie but du jeu elan! d'atternr 
sur la p«ste qui se trouve au nord-ouest de la cade, ou de sen 
approcher le plus possible Pour diriger voire avion de lounsme, il 
vous suftit de suivre les instructions qui sont plus loin. 
Mais avant cela. quelques remarques: 

Pour decoiler il est necessaire d'atteindre une vilesse de 80 km/h. 
Votre vitesse maximale est de 160 km.h. 

ll vous est possible de stopper voire moieur en vol, mais a ce mo- 
ment il vous devient impossible de le controller si ce n'esi en remet- 
tant votre moteur en marche 

Si, en vol. votre vilesse tombe en dessous de 80 km/h votre avion 
pique |usqu'a atiemdre une vitesse convenable. 
Vous devez, de plus, controler requirement votre niveau de carbu- 
rant (touche SHIFT1 car lorsque votre reservoir est a sec. voire ap- 
pareil se compone comme si vous aviez arrete le moteur. 
Lorsque vous appuyez sur le pilote automalique (touche 5) toutes 
vos commandes se staOilisent, y compris votre gouvernail de direc- 
tion, mais Si vous etiez en [rain de lourner. voire avion continuera 
de tourner a une vitesse constanie. 
SHIFT:cart)urant. 
8: Descenle 
4: A gauche 

5: stabilisation des commandes. 
6: drorte. 
2: Montee. 

•:commande de fremage. 
0: Arret moteur 
: Mise en marche du moieur 
* ; commande 6 acceleration. 



VITESSE 
ASCENSIONNELLE 



POSITION DE LA LIGNE HORIZON PAR RAPPORT A L'AVION. 
VITESSE EN KM/H 





li IF-" *>BBftND X(l 
B0OND Y>680NG 
Y(128G0SUB 7BB 
. IF i_ ■ I GOSUB 7 
?8: GOSUB 988: 
GOSUB B98:COTO 

I; IF j<B8fir<u 1-0 



** O N G E 

R I**'. '=4. 

GOSUB 698; S=! 
178: IF ['iBbHO S-l 

GOSUB 478. 

COSUB 778: 

GOSUB 988. 

COSUB B9B;GOT0 

1030 
388: S=8: O=O*0: IF 

>368LET 0=0-36 

8 
398: IF O<0LET Q-Q* 



POSITIONDU 

GOUVERNAIL 



949SD49437F"; 

i: IF E=-IGCUR50R 
G0:GPRINT "7F* 
35543556I7F"; 

1: IF E=IGCURSOR 

G8:GPRJNT ■ 7FG 

1 554 3554 37F -J 

I=8GCURSDR 



CAP'fEN DEGRE). 



POSITION DE L'AVION PAR RAPPORT A L'HORIZONTALE (MON- 
TEE STATIONNAIRE OU DESCENTE. 



GL CURSOR (J8l 



75: CI 



mnt 



8282828602021? 



r_I'da;:°==- U 
60 

>280 



■■■ 

. ■ .. ■■ 

: cosufi «ae 
... -i 

■ : ■ 
■■■ 

0RJMT •«• 

c^roc I "• 



60; IF ISKE-* a 

oro J-flLEI ft** 

/ . ■ ■ 

GCSU8 BW-Z-QIO 
918 

II 

seeexjrj; 

BLE1 ■ 
I 

-■?.; ■ - - 



'■■ - t " 

,£• E=0: t =0 

■.--.-I - 



.1Z. IF IMCEY* ■ 



:38: : 



-E' £—1 



-I LEI G=G 



-5s If K-flSLET. 

&— ea 

143: IF INKEY* **8' 

LET F=-l 
158: IF F=-!LET H=M 

-8. 5: IF :>8LET 

J=J*3 
168: IF InKEY» =■!■' 

LET F-l 
!78: IF F=iI_£T H^M* 

0.5: IF !>0L£T 

l-J-3 
IBB: IF H>?lET H=7 
!38; IF H<-8LET Ms- 



210; IF INKEYi 



238: IF J<8LET J=0 
240: IF GSC INKEY* 

=1G0SU8 738 
258:*=G/30: IF K<8 

LET K=-K 
268:N=TAN CH*8)».2 

7?-*J>K: IF J<B8 

ONO I=0LET H=0 
270:N=1NT (N*!8:>/] 


2B0: IF JJB0LET 0=- 

Gr]8«128^J 
230: IF INT 1=8LEI 

□=~G*J^188 
388: IF 0<8LET 0= 

INT 0*1 
318: IF Q>=0LET 0= 

INT 
329: I -I *N 
338: IF J)50fluO |<1 

0THEN IF G<-I5 

OR S>I5G0SU8 7 

78:G0SUB 908: 

GOSUB 788: 

GOSUB 830: GOTO 



OR Y<80R 1 
GOSUB 770:Q*=- 
■": GOSUB 898: 
GOTO 1828 
428: IF IC8LET 1=8 
430: IF !.-8flND Nf-2 
LET O» = -0'*- 
GOSUB 700: 
C0SU8 B90:GGrO 
338 
440: IF 1--80ND IK8 

458: GOSUB 778: 

GOSUB 478: IF R 
<=8LET H=H-588 



460: GOTO 40 
478:uflir 8:CLS : 

I STR« INT 



I; 



23; 



528: IF IO8M1D 0<8 
GCURSOR 75: 
GPRINT "0I1U2 
1214348BJ91838 
303030505040-' ; 

530: IF K>0«nD O>0 
SCURSOR 75: 
GPRINT '485058 
393838181B0S34 
1412121181"; 

548: IF IO0ONO = 8 
GCURSOR 75: 
GPRINf '282328 
282B3B?823203e 
232B282B28-: 

558: IF N>BGCUHSOR 
95:GPPlNr r 828 
38234831 920703 
B28"i. RETURN 

568: IF N<8GCURS0R 
95:GPRINf ?03 
8284828 33782^3 
704*:. RE TURN 

■578: IF N=8GCURS0R 
55;GPR1NT "888 
C8B182898080C8 
EBB'; : RETURN 

530:NB=STflTUS 2;N9 
=STftTUS 2*J'.S 
1-INT <N9^256) 
. S2=2S6*<N'WS 
B-Sl > 
598: D 0Kt" N8, £43, IV 
17 ■ £68, % 78, 86Q. 
8, *8E, 51, S2, S6 
8, 171. K6fl, 8, EB 
E, SI. S7, 890 
680. D G!<E M<J, E4(i. *4 

E, K84, t?a,t?i. 

S64, 147, 139, i. 



658:L1NE -(88, 128) 



65>-C135,85> 
1NE -(175,85) 
(175, 95)- (1 15 





-(85, H5)-(85 


R78 


LINE -(185,85 




■<185, G5): 




GL CURSOR (118 




78>:LIN£ -(13 




. 98), , . a. 




GLCURSOR (1 15 




75):LINE -()? 




. 85 J , , , B 




GLCURSOR (98, 




8):DNE -(1 18 




110). ,, B: 




GLCURSOR (95, 




5):LIHE -( 185 




185), ,.B: 




GLCURSOR (X, v 




; RE I URN 


hit 


FOR o^i ro n 




8EEP l,50:Cf»L 




N8:BEEP 1, 188 




NEXT 0:RETURN 


->Ht 


IF XMBAHO X< 




8ON0 Y>1680N0 




Y<lB8LFJt z*I: 




RETURN 



74BSCPRJNI '" ■ 

1EXT 0;GCURSOR 
155.GPHJNI ' >F 

758: IF 051 IMCI ft 

- 1 GO TO 758 

'00141 ;■ an 

778:L1ME -IX.v>,0, 
3.Rt IUPN 

'88. IF !<700Onrj /) 
88QNfJ y< 1 2BOND 
Y)88ftNI) Y<120 
LEI L-l. RETURN 

798; if K?BanNn K) 

l88ftNi3 X<1*8 
QNO V1G0ONO ■" 

IBBLtl L ' 
RETURN 
888. IF K700AM ' 

MBflNfl X(138 
ONf] ■ >a0ANI 

IBBLf.t L : 
RETURN 
818. I* !<388«« ' 

asftWi ■'■' I Wd 

" iBbf.s. ■ ■ . 
LE T L ' L i " • ■- 

B?0. " ' I IBflftN • 

10SANTJ - 

flNO y>65r<Nf) v< 
95LEI l. ' 
RF IUPN 
830: IF l<3B8flN0 X> 

.-, . Kti n 

OND -->95(iNI) •' 
95L< Il<]: 
RE ruRN 

R48: IF K4B80ND X> 
98BND x< I !8C.Nf] 
Y>9BfiND 1(118 
LET L-I;RETURN 

858: IF If 4H0f,N[j X) 
1 1 80NO X< 1 38 
ftNO Y>70OND r< 
38LET L = l: 
RE TURN 

86B; IF 1<S0B<1NO X> 
950N0 X<185nN0 
v )93nN0 y«J85 
I :RFTURN 



■■■ : 

988: GCURSOR 75: 

GPRINT 'B87AIC 
a9?03tlC7FIC3t 
7ft49IC7«68" . 

'OR 0=1 to 38: 

RfXE* 64800, 
RWJ 2S6- . : '■■ •■ 

Di -■.. ■ RH 
918:lPR1n' 

ISSOGf PftftFOl I 
: IF ^^IGOTO } 

888 
928: GOTO 978 
938:UPR1NT 'OTTF.RR 

ISSQGE TRDP OU 

R' -GO It 



i PRII 



ftlLE 



R78: 



(wa •> 



■MHflNil : 



948 



PRINT HJ :G0SUB 
188: GCURSOR 11 
9:PRJNT J; : 
GCURSOR 133: 
»RINT INT A; 
RE TURK 
!: IF E=8GCURS0R 
68: GPRINT "7F4 



(LET i 
RETURN 
778: 7^8: RE TURN 
73B:GPRINT 'Pf'. 

C 0R 0=110 151. 
GCURSOR O: IT 
>R&PRINI 4|' 
NEXT Q:GCURS0R 
I55:GPR1NT • PF 
":C0T0 758 



U50ND X<125 
ONfJ Y>750ND Y- 
B5LET L-|: 
RETURN 

l:L=0:RElURN 

l: DEGREE : 
GLCURSOR (X-4, 
v-6):LPRlNT 0' 
■ GLCURSOR (8, i 



> MEURTE LC S 
OL-.GOTO I888 

958:lPRINT *CR0SH 
SUR LC 
' . 7--8;COT0 388 

1C0. IF Z=luPR|Nt ' 
LES SECOURS SO 
NI SUP Ll POlN 
" ■"INT *0 ft 
RRluER 

978: IF ^ -. ■ 

UOUS 0!.ul / fiir 
- LES SECO 
URS 

988: IF Z-0LPSIN1 

•JOUS tltS PtRfl 
U : LES :.i.tfJUR 
^ NE" vPRlNr 
UlENORONT PAS' 

99B. IF ?-3LPRlNl 
urtF riORT LINFI 
^US OlIf.ND 
I888:CLS : 'f.Xr . 

lf 5; run 

I818.LPRIXT t»ns 
H SUP Lft COl 
LiNl ' -GOTO I 
989 

I828:LPRJnI uij.j 

UOUS cms I 

GftRC GOTO I 

088 
l038:LPPINl ■ f 
CROCHD 
G E' -lPPIni 
UOU'i rtURJf / 

nu pri nijwi 

OUELOUI', 



1848.LPPINI ' 



I '.<- 



•LU^.' . 



MASTERMIND 



Une fois nest pas coutume et ce Mastermind est tene- 
ment beau que nous avons craqu6!. 
Remarque: il est preferable de posseder un ecran cou- 
leur. 
Bravo, Monsieur Eric LEVEAU 



■ rw ?:PRI»1 

,:^ ne*- 1 •c«0-jiii*a "-c-o-e-f-s-fr 
"cnEFQfle-,-13*^ , *c0*p*E«f*8rfK0* 
2ie R£n 

ZS0 «n 

268 PE^ 

278 FOR C-l 10 139 

230 PE«0 f*,0-"OLOR H,O,0,S :flUSJC - -l 

298 NE/T C 

380 CURSOR 0,!3:mllfT C4,03 TftB(B) ' 

318 PRINT £4,0] TWH) 0SM«RP n;-. 
328 PRINT (3,8j T'iStSJ W"»iirt« I 

c - - :,-:■■■. i= 

325 FOR T"0 *3 380 

338 PRINT [8,0: T*BC4) Frapp»i w 

348 PRIWT :*8t4J "0 




I6,,2:COLOR 9,16, .1 

778 PRINT " . Uolr* 2t«* couHur : * 
780 GET Y;If Y=B TMEN GOTO 788 
790 JF T>8 THEN GOTO 78B 

809 fflJSlC n2«:PRIHT '■' ;Tft0C23) TlY-T-1 

810 COLOR IS, IS, ,Y:COLOR |6, 15, , Y :COLOR 
13, I0,,Y:CCK.O« 16, I6,,r 

820 PRINT " Uoir* 3*»« coul«ur : " 

838 GET XMF X-B THEN GOTO 898 

840 IF X>8 TttH GOTO B3B 

858 PUSIC n2«- PRINT -0";Tfte(29J X:X-X-1 

898 COLOR 22,I5,,X:COLOR 23, I 5, ,X :COLOR 

22, 16,,H:COL0R 23,16,. X 

878 PRINT ' Uolr« 1«*» cool.ur : " 

B8B GET U:1F W-0 ThEN GOTO 888 

B98 IF U>8 THEN GOTO B88 

980 PUSIC n2*:PRINT "0" ; Tfl6<23) U:«>U-1 

910 COLOR 23,15, ,k:C0LOR 38, 1 5, , H :CXOR 

29, 16,,N:COL0R 90,10, ,U 



398 «-lN:r8*RcO( . 

188 9-lNH8*PN0t i 

418 C-INT[3»PN0! I 

420 0-!N T C8»RNP[i . 

438 REP .»»»*. «l*..mi**»l 

*48 RFr t o-...ntot.ort au . 

4S0 REfl «***»*iJ**tt*»***»i 

408 COLOR, ,8,?.S-0:&Otu8 736B 

470 PRINT "00 L. tJ l at c« j. 



MZ80 



518 GET B*:IF B* 


" • 'n£n GOTO S38 


529 GOTO 518 




530 GOSUB 236B:S 


St| -PRINT 


540 PRINT " ' 


NOIR 5 


■JERT fl" 




558 PRINT " 2 


BLEU F. 6 


BLEU C.3- 




560 PRINT " 3 


ROUGE 7 


JMM a 




578 PRI'il " " 


UIOLET 8 


SLflfC 0" 




580 CURSOR 0,i 




598 FOP b-8 '0 3 




680 PRINT TflBtB) 


:neif2Bij>Tftet2B) 


284) , '0' :S£XT G 




610 COLOR 0, «,,a 


■ COLOR 26, 4, ,4 


620 COLOR 6, 0,, 


:COLOR 26, 6,, 5 


030 COLOR 0, g, ,; 


■ COLOR 26, 8,. 6 


640 COLOR fi, 'B, ,: 


:COL0R 26, 18, ,7 


658 PRINT "0 


OL..II. ttt VOtf C 



668 PRINT T«B(8J CMR«(2^91 ;CHP*f248) iSPC 

(5J ;;>1B<C239» ;CMR*(248) ;SPCC51 ;CNP«(2391 

:CHR4(218J ;SPCt5) ;CHR«<239) ;CHR«C24B) 

678 PRINT ThBCBJ ChC4(236J ;CmR*(2I 8) ;SPC 

fS);CMR*C236J,CHP»t2ie),SPCC5);CnP«t73«) 

;CMR«C2l0) ,SFC(5) ,CKR«t23«) ;CHR«(2I0) 

680 PRINT '0* 

698 RET t»*i*«***t***i**lH***t*» 

790 RET * Co»*i ; no ; < e-n 'I'.. jou»lw » 

718 RETT ttt»*tl***i»»*»i»*»tl**** 

728 PRINT " Uoiri l»r» couKur : " 

738 GET J : IF (-8 TftCN SOTO ?30 

740 JF US INEN GOTO 730 

750 nuSIC n2«:PRlNT '0-;T»(23) Z:i't-\ 

76B COLOR 8, I5,,?:COLOR 3, I S, , I :COLOR 8, 



920 REP 


imiliiDHiiilDim 




99B PEP 


' * Pr 


titnlotlon * 




948 PErl 


1 R*(ul 


tQl dv, joo»ur » 




950 REH 


1111**1 


llllllllltllK* 




968 FOR 


T*8 10 588- 


NEXT T :G0SU8 2360 


978 IF S 


-1 THEN PRINT "00 Uoici voir* 


•iult.nl 


F>our 1* \*r 


lour- -:GOT0 998 


988 PR In 


T "00 uolcl 


voir* r««ullal 


pour 


|*'tSl"4 








998 IF C 


Z-n)i(Y-B)* 


O"C)t[U"0] THEN n-4 


GOTO 1S4B 






I 888 IF 


U»fl)lCT"B)ltX-C)>{;-fO*(T 


•BUT 


-D)i(2-fl 


)1(X-C)KW- 


DJ'CT-BJlOl-C)* 


(U-OJ 


THEN rl*3 


:G0TO 1548 






10I0 IF 


2=HJ1(Y-B) 


THEN n-2:GOI0 


1128 


1020 IF 


t?-H)*C«-C) 


THEN n-2:GOT0 


1 150 


1838 IF 


(?=r»)*[u=D) 


THEN n-2:G0T0 


1180 


1848 If 


[T-0J*£X"CJ 


INEN n=2'GOT0 


1210 


1850 IF 


(r-euru-o) 


THEN rl-2:GOT0 


1248 


i860 IF 


(X-C1HU-0J 


THEN n»2JG0T0 


1270 


1878 IF 


t-f>l THEN 


N-l :&0T0 1380 




1088 IF 


r-8) Then 


n=1 :GOT0 1340 




1090 IF 


>-CJ THEN 


n-1 iGOTO I38B 




1 100 IF 


U-DJ THEN 


ta| :GOT0 1428 




1 1 ia n-0 


'GOTO 1468 






1128 IF 


X-0JKW-C1 


THEN N-2:GOrO 


1558 


1130 If 


X-0)»(U-C) 


THEN N-l :GOT0 


1550 


l MB N-B 


■GOTO 1558 






> 150 IF 


Y-OJICU-0) 


THEN N-2:GOT0 


ISS0 


1 160 If 


r-uj-ru-B) 


THEN N-l 'GOTO 


v.n 


i 178 N-8 


-G010 1550 






1 100 IF 


r-cuowBi 


TmEN N-2;&0T0 


1550 


i '90 IF 


T-C)'(X-B) 


THEN N-l iGOTO 


1330 


I78B N-0 


GO ID '5SB 






■210 If 


;-0)»(u-ft) 


1MEN N-2'GO(0 


550 


• 220 IF 


l-D}'tu-r*] 


THEN N-l ;GOro 


1550 


1738 N-B 


GOTO I55B 






1248 IF 


KJtlX'flJ 


THEN N-2'GOTO 


330 


1258 JF 


i-otcx-rt) 


THEN N-1 'GOTO 


1550 


126B N-8 


GOTO 1558 







1278 If CZ-0)»(.T-fl) THEN N-2.G0T0 1550 

■788 JF (2=BWY=N) THEN N-M&OTO 1550 

1798 N-8:G010 1558 

13B0 IF r.T.CJirX-D]l(U-BJfrT^0)l(X-8Jl(.w 

*C1 "HEN N-3:G0T0 155B 

1318 IF tr»C)ltX-B)i(T-C)*tX-0)'a*C)XU 

i en'(Y=D)i(X"8)ir.Y..D)*r.ij--T0)tcx'-o)*(u-cj' 

rx-0}*(u=cjTtx°o)i[U'B)-.(x°o>irw«cj Then 

N-2:GOT0 IS5B 
1328 IF TT-C)T(T-0)»(X-fl)«(X-0)t(U'BJ'-M 
*C) THEN N'l GOTO 1350 

1338 N-B:G0T0 1550 

1340 IF (i-c)*(x-o)nu=Hi.r;-oni - ■< ■«..-. 

CJ IHEW N"3:G0TJ 1 E S0 
1358 IF (?-C)*C-Hlt(i-CJl(XO)-r?-C)*(U 

•H)tc2-o)*(x-fl)»[2-D)*(u-fli»(?-o)«ru.c)' 

rx-fllt[U-C).CX-D)lCU-Ml'(X-Dll(U-C) THEN 

N=2:G0T0 1SS0 
1368 IF [t-C)*(l»O)*CX»H)t(X-0)t[U»(4l- k 
■C) 1h£m N-l .GOTO I55B 
1370 N-8;G0T0 1 55B 

1388 IF (i-Bl*CT=0)*(U=H)»ti=0)*(Y-nii(U 
"S) THEN N-3:G0T0 I5SB 

1338 If U=BJ»tT-fl)»CIf-B)l(Y-0}.t?-B)<tU 
«n)»[2»0)»(T-ftjTt»-0)*tY-eiKT-H]HU-B)- 
tY*8]*CU-fl).(Y-D)*(U-flJ*(T-D)*EU-8J THEN 

N-2:G0I0 1550 
1480 If (?-BJft2-O]T(Y.H)'tT-0)'(U-fl).tH 
-B) THEN N-l :&0T0 I5SB 
14IB N-B:&010 1550 

1428 if tt-0)icr-c)icx-fl]*(?-cj*rY">i»o< 

-B) IHEN N-3G0T0 I5S0 

1438 IF ti-BJ*(T-fll.(2-0)lfY-C)'t2-B)ltX 

■H)<(2-C)l(Y.fl]i!?=C3l(X=n)'£Z-C)JfX-B)» 

tY-n]l(X-0),(Y-C)t(X-fl)>tY-C)*(X-B) THEN 

N-2:G0T0 1358 
1148 IF r2-Bl.C?-C)t(Y-rt)f(Y-C].(X-N)*tX 
'Bl THEN N-l :&OT0 I558 
I458 N-B:G0T0 1 558 
I 460 lFC?-B)i(Y.fl)l(X-OJ*CU-C).t?-CJ«lX- 

H)Hr-D]*<U-8).(i-0)*[U-fl)ICY-C)HX-BJtl 

?-8)*(T-cjnx-o)*(u-/»).(i-0)«tr-D]*tx-nj 

tIU-CjT(»-C)*(T.fl)*tX*0)»(U-B)T(i-C)*(T- 

0)i(x-8)lru-A),r^«0JltT-n)l(x-8)llu-c)•f 

^-D)*tY.C)l(X-")»tU-BJTHCN N-4:GOTOl350 
1470 IF [?-8)»CT-n)l(X-01'I?-B)HT-A)*[U 
■Ci*[^-B)l(T-CJi[X-fl)Tl»*0)l(Y-Cl»[X-OJ' 

t?-B)»rr-cji[u-H)t(i-0)itT-o)i(x-«)»((-B 

)*[Y-O)l(u-H) f t(-0)»(Y-O)*(U-C)*(?-C)l(Y 

■A)«ix-0J'('-C)*cT-nj*tx-rj)'r?-cjifT-Nij 

(U=B1 THEN N-3:G0TO 1550 

1480 IF (J-CJ*[Y-0]*CX-ft)tt?-CJI<r-D)»(X 

*BJ'(2-C]»tY-fj)i(u-n)Ti?-c)«tY-rJ)*(U'Bi» 

(i-Dl*tY-rt)lCX-B)»(Z-D)irY«ft)»CU.BJ*tZ-D 

jif 1 .i jtru-r, .j.i /-tun ( r. nr/.-m-i t -11 i n f 
■CJ«(X>B)»f2-0)lCT-C)l[U-/>)*ti-0HtY-CJ* 
ru Ui "<tM N-3-G0T0 1330 



suite page 13 



JEU DES DRAPEAUX 

HECTOR HR 



EI pour commencer un jeu sur les drapeaux au gra- 
phisme superbe. qui devrait vous inciter a faire 
mieux... 



M.BAtLLY 



1 CLS WPE 

2 COLORS, 1-7- 4 
J FLRSH6.8 

4 POkfAFFlS. 1 LINE 16, |4. IS. 228. 1 LINE222.229. 1 LINE 
222-14. 1LINE16. 14,1 

3 PL0T69. 166.98.96.2 PL0T69, 168- 38, 96.3 PLOTI 29, 166 
38.98.1 PLOTS?. 1S3.2.96.2 PL0T159, 163,2,96.2 

6 PL0T39.218. 168,15. 1PL0T29. 281, 166. 13. 3 OUTPUT"* 
J€U DES DR6PEHUX «-.54.215.6;0UTPUT-e Ce#*n9*t MBfV 
02'84 8". 46. 196.1 

? F0RI-1T018 

8 RE«-S1,S2 TONES!. S2 

9 NEXT 

16 OftTfU 75. 143, 173, 143. 173, 143, 131. 244, 131, 244, 117. 
273.117.273.87.368.164,366.131.244 

11 P8USE> CLS COLORS, 1.2. 4PL0T19, 223. 268. 288, 3 

12 LINE16.14.16.228.I LINE222.228. 1 -LINE222. 14. 1 -LI 
HE1S-I4.1 

13 OUTPUT"P£SIREZ VOUS LE MENU" .58. 188, 1 •OUTPtlT"OUI 
>0 <X« NON >N-,64,140. 1 C(JRS0RI98.e8 

14 INPLTTL* 

13 IFL»-"0"TMEN GOTO 16 ELSE IF L«-"N"THEN G0T028EL 
3£ I FL* >< L8THENG0T0 1 4 

15 FLP.SH4 CLS LINE16, 14, 16,228. 1 LINE222.228, I L1HE 
222,14,1 LINE16.14.I PL0T16, 215. 287. 28.1 OUTPUT"* ME 
MU -•,84.218,3 LINE16, 286. 216. 266.1 

17 OUTPUT"* DES DRftPEflUX VONT *",58, 188. 1=0UTPUT"» 
DEFILER DEVflNT VOUS *". 32. 138. I OUTPUT": VOUS DEVREZ 

MJNNER :".55.128.20UTPUT': LE NOtl DU PAYS !",66,10 
8.2 

18 OUTPUT-C flPRES CHRQUE REPOMSE TflPEZ 3". 29. 70. 3^0 
LITPUT"< .RETURN. '•■.86.50. 1 <PL0T16.23.287. 14. 1 >OUTPU 
T'POUR CONTINUER TftPER UNE TOUCHE" .21 .23,3 

19 h*-INSTR*< 1> 

20 CLS.LINE12.228. 12. 16.2- LINE228, 16,2 LINE228. 228, 
2 LINE12.226.2 

21 LINE12, 16. 12.5,2 LINE22S, 5,2; L1NE228. 16,2 

22 PL0T122. 215. 183,36, 1 OUTPUT"* * * *",148, 1 
78. 2= OUTPUT "JEU DES DRflPEHUX-, 127. 284, 3< OUTPUT "fi QUE 
L PflYS PPP8RTIENT CE DftflPEftU ?", 16. 105,2 

23 OUTPUT-POUR JOUER T*P*z C ".30,28,1 

24 OLiTPUT-POUR HRRETER TaPez FIN", 38, 14,2 

25 COLORS, 1.7,4;SCR£EN121. 158, 185, 28'CLS3 

26 POKE&FF10,! 

27 PL0T28,215,98.98,2 PL0T2S. 215,98,38, 1 -PL0T28, 155 
•98,36.3 PL 0T17, 217,2. 96-2 

28 Z^■LU>E^«OURC" i GOSUB2IS^0UTPUT-LIJXEMBOURC".153, 
78.20UTPUT" 2. S60 kn2",15S.48,2:ft«-INSTR*<l> 

29 C0L0R6.2.3.4 

36 CLS=PLOTt5,92.2ie,6S.4'PLDTi5.220,100,18e,4=PLOT 
20.215.96.96,1 'PL0T2S. 195.96.30.2 PLOT20, 155,98,38.3 
P\_UTX7.217.Z.96.2 

31 2««"GfteOH"^HJS'je21S OUTPUT-LIBREVILLE", 153.78-2, 
OUTPUT '267. 667 k*2-, 153.48,2 R»-INSTR»( 1) 

32 C0L0R6. 1.7,2 CLS1 

33 CLS'PLOT15.92.210.S0,4,PLOT15.228.18e.l80,4 

34 PLOT28,215.?e,9e,2'PLOT2e.215.3e.9e.3:PLOT60.21S 
.36.96. 1 PL0T17.217,2,96,2 

35 Z«»="ITPlLIE"G0Sije216;0UTPUT"R0t1E". 135,78,0 -OUTPU 
T-381.262 -.155,48,0:OUTPUT"lr»2",284.4e,2,fl«-INSTR»< 
1> 

36 C0L0R4.3.8.1 

37 CLS PLOT15.92.218.60.4'PLOT15,228. 188. 180,4 

-*8 PLOT20. 215.98,99.2 PL0T38, 215. 38. 96. 1 PLOT80.215 
,38.96.3 PLOT 17, 217,2,96.2 
39 2«-"6ELGI0UE" G0SUB216 OUTPUT-BRUXELLES", 153,78, 



41 CLS PLOT 15. 92- 210. 68,4 PL0T15. 220, 188,188.4 

42 PLOT20.215.96,O0,2,PLOT28,188,98.28.3^PLOT45.215 
.15,96,3 PL0TI7.217.2.96.2 

43 2»-"FINLftNDE",&OSUe216 OtJTPiJT"HELSIf«CI", 155,78,2 
rtJTPi rT "337 .832 k*2" . 155 , 48 , 2 ■ R*« INSTR* 1 > 

44 COLOP8.4.3,1 

45 '"LS PL0T15. 92,210.60.4 PL0T15. 228. 188. 100,4 

4-5 PL0T28,215.96.96-1 PL0T28. 198. 98.28. 2PL0T45. 215 
. 15.962 PL0T17.217.2.96-2 

47 2»*-Si.€DE" OKUB216 0>JTPUT"ST0CKHOLM", 155.78.2=0 
nrp.iT-449.793 k*2".155,4e.2 = frS-INSTR*< i > 



48 COL0P3.I.8.3 

49 CLSPLOTIS.92.218.68,4 PL0T13. 228. 168. 188,4 

58 PLOT20.215.98-90.1 PL0T28.215.98. 38.2- PL0T28. 155 
.98.38 3 PL0T17.2I7.2.96-2 

51 Z«="R1IEHACHE" :r;0SU*2i6 OUTPUT"B0HIP , 155, 78.2 OU 
TPUT-248.59? k*2" . 155,48,2 ■ R«= I HSTRf l ) 

52 COLORS. 1.8. 7 

53 CLS PLOT 15. 92, 216. 68. 4 PLOT 15. 228. 100. 188.4 

54 PI 0T26. 215, 96. 9S.1PLOT20, 185.98.38.3 PL0T17. 217 

55'r*=-rtJTPirHE' G0SU8216 aiTPUT-VIEHtJE". 155,78.2 

MfMiT" fi^.ftSi t ,.,>■'. 155.4:?. I-: M«=IM^.TPV 1 ■ 

5*= COLOR0,3.4,1 

57 CLSPL0T13,92.218.68.4 PL 0T15, 220. 108, 186,4 
19 PL0T28:215,98,98.1 PL0T28. 178.98.45,2 PL0T2H. 147 
.5.98.22.5.3 PLOT 17, 217, 2. 96. 2 

59 Z*--COLOM8IE"=GOSUB216 = 0lJTPtJT-BOCOTFI*, 155,78.2 = 
UTPUT"!. 139.060 k*i2",14B.48,2>m-IHSTR«(l> 

60 C0L0R8. 1.7.4 

61 CLS:PLOT15.92,2I0.60,4=PLOT15,220,100, 188,4 

62 PLOT20, 215, 98, 98, 1=PLOT20. 180. 98. 20, 2 =PL0T45. '15 
.15,98,2PL0T17.217,2.96.2 

S3 Z»-"W*JEriHP>'~ 'Q0StB21£ ' OUTPUT "rnPENHRGi E" - 155, 78 
.2 = OUTPUT"43.000 tr«2". 165.48,2 = fi»- 1 MSTR«< 1 ) 

64 COLORS. 1, 7, 3<CLS1 

65 CLS=PLOTI5,92,212.60.4^PLOT15.220,100,198.4 

66 PLOT26.215,96.90,1,PLOT28. 192.5.90,45.3 PL0T17, 2 

67 Z*="-ESP8CNE" 1 G0SUB216' OUTPUT "fifiOR!0" - 155, 78. 4 < OU 
TPUT-50S.787 k«2", 155.48. 1 'R*-INSTR«< 1 ) 

68 COLORS. 1.7,4 

69 CLS:PLOT15,92,210,6e,4PLOT15,228, 186, 108,4 
78 PL0T2e,213,98,92,2:PL0T2e,21^.36,45,3 

71 OUTPUT" ",28, 215, 2 = OUTPUT" *, 22, 21 1,2 

OUTPUT" -.28, 207, 2 OUT PUT" " /22 , 283 , 2 = OUTP 

UT" -,28, 1OT, 2 'OUTPUT" ",22, 195,2 OUTPUT". 

•,2e.l9!.2-.0UTPUT" ",22, 187. 2 = OUTPUT" 

.",28,183,2 

72 OUTPUT" -,22, 179, 2 = 'PL0T56. 215,54, 6. t - PLOTS 

6.262. 14.54,6.43. 1PL0T56, 189.28,54,6.43, 1 PL0T56, 17 
6.42,54,6.43.1:PL0T2e,163.56.98.6.43, 1 1 PLnT20, 150.78 
.90,6.43.1 PL0T28. 137.84,98,6.43, I =PL0T28. 124.98,90, 
6.43,1 

73 PL0T17. 217, 2,188,2 

74 Z«~"ETP,TS UHIS"'GOSUB216 = aJTPUT"HflSHINGT0H-,l55. 
78,2 = OUTPUT "21 7. 798. 888 k«2", 134, 48,2= ftt=INSTR»< 1 ) 

75 COLORS, 4, 7,1 

76 CLS' PL0T15, 92. 218, 68. 4 = PLOT 15, 228. 188. 112, 4 

77 PL0T28,215,98.9e,2=PL0T2S,213.35,49,I .PL0T28,166 
.49,1,4 

78 PL0T56, 215,54, 18, 1 'PL0T56. 19S.34. 18. 1 PL0T56. 175 
,54,10.1 ,PL0T28.155.98.16.1 =PL0T28. 135,98, 18. 1 >PL0T2 
0,193.36.8.2=PLOT34,215,3,49.2'PLOT17,217.2,96,2=PLO 
T55, 215. 1.56,4 

79 Z*--iSECE- = G0Sue216-0iJTPUT"flTHENES".133.78.2'0UT 
PUT-132.728 k»n2*,l55,48,2 = n*-INSTR«l) 

88 COLORS, 1,7.4 

81 CLS'PLOTI3,92.210,66,4=PLOT15,220.108,180,4 

82 PLOT28.2I5,9e,90.3=PLOT20,188,96.20,2=PLOT45,213 
,15, 98, 2= PLOT 48, 215, 9. 96,1 PL0T28, 176.98- 12. 1 'PL0T17 
,217.2,96,2 

83 Z»-"rSLPWD£"=GOSUB216=0UTPUT-R£y>CJflVIK". 155.78.2 
= OUTPUT" 183. 868 kt£' ■ 155. 48.2. R*-1NSTR* 1 ) 

84 COLORS. 1,7,2 

85 CLS=CLS1 = PL0T15. 92- 218. 66, 4 =PL0T!5, 228.188.168.4 

86 PLOT2e,215,90,96,2=PLOT56.215,60,45, 1 PLOT30.178 
,66,45.3=PL0T17,217,2.96,2 

87 Z»-"MR0ftGfiSC8R'' GOSlJ8216'0UTPUT"TftNRNPRIVE",133. 
78.0:OUTPUT"592.886 V«2" . 155,48, 1 <R«-1HSTP«<1 > 

88 C0L0R6, 1,4,3 

89 CLS=PLOT15,92,210,60,4!PLOT15.220.100.188.4 

90 PLOT20.213,9e.9e,3'PLOT20,173.98,6.1 PL0T2S,185, 
96,6,l>PLOT28,161,9S,6,I=PL0T17,21?,2,96,2 

91 Z»-"VIET N6M"C0Si.*216 0UTPUT"M8NOrM33,78,2'OU 
TPUT"329.5S6 kmZ" , 135,48,2=R*-IMSTR*< 1 ) 

92 COLORS, 1,7.4 

93 CLS'PL0T13. 92. 210.68.4 PL0T13, 228. 186- 100.4 

94 PLnT26.215.96.98,l 'PLOT28,288.96,S0,2 PLOT20.185 




.96.30.3 PL0T17.217.2-96.2 

95 2»-"THflILfiHr€- GOSi.^216 OUTPl.rPSflHGKO*'-. 153. 79-2 
C».'TP'JT"514.000 VF.2-. 155.49.2 Ot-IMSTP* 1 « 

96 C0L0R6, 1,7,4 

97 CLS PLOTI5.92210.66.4 PL0T15228. 1&«. 160.4 

98 PL0T28.216.94.94.2 PL0T26. 169,94.47.1 PL0T17.217 
,2.96-2 

9? Y-178YL-1 

I-/-.' ='■=■■■ -~- ■ :-.':-F- ■' 

181 PL0TX.Y.1.YL.3 

182 YL*YL*1 =Y-Y*1 
103 NEXT 

184 Y-I70 YL*48 

185 F0PX-2ST066 

186 PLOTX.Y, l.YL.3 

107 YL-YL-1 

108 NEXT 

169 Z*-"TCHECOSLOVftOUIE" G0SUB21S CJTPUT'PPftO*- . 15 
5.78,2 -OUTPUT "127. 87? V*2' . 155-48. 2 MalHSTH I ■ 

110 C0LOR6.1 -?,4 

111 CLS PL0T13.92. 218, 68-4 PLl'T15-226. 168. 168.4 

112 PLOT20.2I59898.3 PU0T39215. 12-96,2 PtOT2S 1 
79-90.19,2 

113 VL-12 Y-22? 

114 FC«?:<»26TO110 

115 Y=Y-1 

116 PLOrx.Y-l-YL.2 
11? NEXT 

118 PL0T28. 176.98- 1:-- t PLOTS! .213-8.96 ! PlOT2a.!21 
. 166,8. 4'Pl.0T169. 215, 8-96- 4 PL0T2S.223- 116.8.4 PL0T1 
4.215-8-96-4PL0Tl<'.21?.2'=-i. 1 



' Yl = 12 



150 



120 F0RX-26T0118 
12L Y«Y*1 

122 PL0TX.Y-1.YL.2 

123 NEXT 

124 PL0T2S, 176,90. 12, 1 PLOTSI ,215.8.98. I PL0T26- 123 
.180-8.4 PLOTie?.215,9.904 PLOT20 223. 1 16-8-4 PL0T1 
4, 215, 8. 98-4. PL 0T19. 21 7. 2. 94.1 

125 YL-4Y-218 

126 F0RX-28T0U8 
12? Y*Y-1 

128 PLOTX.Y.l.YL.l 

129 NEXT 

138 PL0T28. 176,98. 12-1 'PL0T61 .215-8.96, 1 'PL0T28.123 
,ie0.8.4.pLOT189-215,9.98.4 PL0T28, 223. 1 18.8-4 PL0T1 
4.215.8.96,4 PL0T19- 217. 2. 94.1 

131 YL-4'Y"126 

132 FOPX-28TOH0 

133 Y-Y+l 

134 PLOTX.Y-l.YL.l 

135 NEXT 

136 PLOT20, 176.90. 12.1 PLOTSI ,213.8.90. I 'PLOT20.125 
.186.8.4 PLOT 109- 213- 8. 96. 4 PL0T28. 223. 1 18.8.4 'PL0T1 
4,215.8.96.4 PL0T19. 217. 2. 94,1 

137 PL0T2S. 176,96. 12.1 = PLOTSI .213.8-90. 1 -PL0T28-125 
.166.8.4 PLOT109,213.8,98, 4 ipL0T20.223. 118,8.4 PL0T1 
4, 213, 8. 98, 4> PLOT 19- 21?. 2. 94,1 

138 Z»-"GRRND£ BRET8GNE" G0SUP216 OUTPUT "LONDRES" . 1 
55,79,2 0>JTPUT"244. 800 Vm?." . 155.46.2' At-IMSTMM > 

139 CX0RS.3,?.4 = CLS3 

146 CLSPLnT1592.2I8,S0.4 PL0T15 228. 160. 188.4 

141 PL0T28, 215.98.90. 2 PLOT20 . 215 - 38 . 90. 3' PL0T8S. 21 
5,30.96,3-PLOT17.217.2,94,l 

142 Z*-"GU8TEMftLR M ■G0S'.'B21S OUTPUT "GUflTEMRLfi" . 155- ? 
8.2=0"JTPUT"ie8.889 k«2" . 135.40.2' At«INSTR»< I > 

143 COLORS. 3, 1.2'CLS4 

144 CLS • PL 0T15. 92. 218, 60, 4' PLOT 1 5. ??8. 108. 188. 4 

145 PLOT20.215,90.98,1 PL0T28. 215.3S,9e 1 3'PL0T88.21 
5,38.96.2'PL0T17.21?.2,94.2 

146 Z»-"MfiLI" = GOSUP216 0i;TPUT"8RMRK'", 153-78.2'OUTP 
UT" 1.248.880 k«2"- 134,48.2 ■ftl-IHSTR*' 1 ■> 

14? C0L0P8, 1-7.4 

148 CLS'PLOT15,92.210,60.4'PI.OT15.220,100,108,4 

149 PLOT20,?15,96.90.2 PL0T34, 215.28.98, 1 'PL0T20, 18 
4, 98, 28, 3 'PLOT 17. 217, 2. 96.1 



Suite page 14 
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Suite de la page 12 



*AZ8° 



T4M IF [T-ft)«CV-flJ*(U-C)*CT-rt)*tX-OJ*tH 

'BJ'CT-f'jatX-DJitU^OCT-CJ'CX-fllitW-SJ' 

{T-C)«[J<*B)*(U-fl)-'CT-CJ*(X'0)*tU-fl)''CT-C 

)*(X-0J*(U-a)»£T^)1*CX-fl)*{U-8)TtT-DJ*t)( 

-fl)a(U»C)»CT.D3±(}(=B)*rU-4)''CT-0J*(X-8J* 

(U-C) TMEH N-3:G0TO 1 SSfl 

1S60 IF tI-9)*(T-flW!-e)*CY-C)*[2-B)*CT 

-0)*c^-B]»^;x-flJ^t^-eJ*(x-PJ'■t^" 9) * tw " fl, * 
)*cx-ft)»(2-o*tX'B)*tz=^:)*tx='Oj'C;''C3*[M 

'f<)-t2-C)*CU-BJ TMEN N-2&0T0 1550 

1510 IF C;=D)*tr-A)T[Z-0)*(Y-ClTC2=0)*fX 

Ci-OXCU-OCT-SJiCX-BJ'tT-flJttX-DJ'tT'fl 

]*(M-B).(T-ftj*LU-C)-rtT-C)*tX-fll'tT-CJ«(X 

-B)*CT-C)*CX-D1 IMEN H-2.&CJ-1 I5SB 

1526 IF (T-C)*tU-f.)-r(T-C)*[U-9J»CT-D3*(X 

•n)t(T-D)«tX-B)";T-DJ*tW*CJ'(T'0)*IU-B)' 

rT.o)*cu'C)■.()^•n)*(l'-e)-t^' : *:*(^'^J- ; :■ , "3 
iK^flJ.tX-BJifU'C^CX-DJttW-flJ'CX-OJ*'- 
^ajttX'DU(U-C) THE-' N-?-&OTO '558 
'53B !^ [Z-fl3»(I^l*C«"(M»CY»rtJ»JT-C)»t' 

='0]UX-^)-T)<'B)',><-0)-fW"»J*tf*B)-fl- = r. . 

■HEN H'\ :tOTO I5SB 

■ 1>*0 N-B 

1550 If f1»B TMEN PRINT '» Uol.* o'o«»/ »J 



'560 1' 



• H.«. "RInT 



111 --R1NT ■■* C. .o-t ••» * oow 

tow's j'*J ' '3t ""I T 1-"US!C rl•*■ r " , ^" 

n .-<■;■ «] .goto icie 

I5BB IF n>\ THEN "*'.f *• •J "' c-'*'";' 1 

'590 If •.,» TMEM o«lNl 'Jou* O'ou" ou 

'60B If N- « lt*V* PRJNl B Voo< o«i? "" 

IB1B IF N>! Tufn P&IMT B Vou. out/' IN 

'030 PRINT - t'3 C3 65 E5 E3 £5 " 

tOS8 PRINT "• 'H' *>«»• uo '- r I '•'»>••*»> I « 
OV wo» cciu«»"-lF Cn-1)»CS-29) THEN GOTO 



I 650 PRINT 
'660 PRINT 



I6?B QUI FC2n/r(2l3 

f?n 

1688 J-B 

1698 IF J-S THEN 2t J )'! ^T(J J-T 

J)^:|-ltJl-P:NCJl-N--60TO 1719 

1788 J-J-1 :&0I0 1636 

1718 GET C« 

1728 IF C4--M' THEN GOTO 1810 

T739 IF (P»4)*(S=-2«) THEN GOTO 

1748 IF C«»- ' THEN GOTO 530 

1PS0 IF Ct-'X' THEN GOTO 2828 

1768 GOTO 1710 

1778 REM ******i******4*****l 

'7BB REM * Prifrxal.on 

1736 REM * Tabl.nu d.t p«au|l 



UC2I 3,n(2I),f 



or.uH . 



FOR t 



TO 3 



1870 PRINT USING ' 8# ' ;0 -PRINT 'NEXT 

1838 PRINT * 16" 

1848 PRlNr'f*B':FOR T- 1 TO IB 

1858 PRINT TA6C6J CHR«(2e4}i" ;CHRt!28=1 

J(' 'iCNR«(2B4) ;" ■iCnR«C204);SPCC6)iCHR 

• ( l33)iCMR«tl3?) ;T»19,'' " ;CHR«(204); - " 

;CHR«(704J ; ' ■ ,chR*(201) ;- , ;CHR«t?B4) :P 

RINT Trt8C13) CHR4C139) ;CMR«(I3?J 

1B66 NEXT T 

1B7B PRINT '»",T0BC13) '* ■;-■";"•' 

1BB0 FOR J-1 TO 5 

1836 IF J>10 THEN CURSOR 34, (2*J- 1 9) 'GOT 

1918 

I960 PRINT -'■'jTftBt H) nCJJiHl J) :COL0R 6 

, ( H2*J), ,i( I) 'COLOR 8, C1*2»J), .TtJJiCOL 

OR IB,( lt2»J),,X(J)'C0LOR l2,('-?*J).."f 

Jl'MUSIC r««.GOI0 1926 

191B PRINT fTCJ) JNCJJ'COLOR 2«,(2*J-I9)i . 

?(J1;C0L0R 28,(2*J-13), ,T[J). COLOR 38,(2 

tJ-19), ,X(J)-COLOR 32,f2»J-l3J, .UIJJTIUS 

ic net 



926 NEXT J 




930 CURSOR B,23:PR!NT ' -*, 


•PUV" "l* - 


i i.iirr. d-*tpoc*i*ar<t 




348 GET 0« 




950 if co««' *)*tn-4j then 


GOTO 2238 


368 IF C04-" J»tS-28) THEN 


GOTO 71 10 


978 IF 10*-' 'I "<EH 


GOTO 538 


998 GOTO I34B 

996 atn •.*■••#•**•«■** •**•*»( 


lltllltlll 



/:■.(■?■ REn » >v...,v.,,:,i,.i d* fl 

2010 REM t*t*ttt*ittii**»tt*l 

/B^0 GO^UB 7360 

7038 \< SOI then GOTO 2BB0 

2B4B PRINT BB 0««c>*. mait 



-■350 CURSOR B. 22 .PRINT » "upm*/ io 

2860 GET E**IF E«-" ' TmEN GOTO 538 

2878 GOTO 2068 

7B88 PRINT '■ Vpui ov.i dicld* d'ar 



10 2000 -NEXT 



2130 FOR T.0 

2140 PRINT fl' iTPBCOJ 'Lo or^« co.b,™; 

«oti itaU'M'iilUSIC PHi'M" 

2158 PRINT Toa(Bj CHR*(239)lCHR«(240)lSP 
C[5) ;CHR«t233J ,CHC*I 248) ;SPC( 5 1 ,CHR*;239 
I ;CHR«I24B] iSPCt5)iCHR«C233) ;ChR«(24B) 
7I6B PRINT TrtBCB) CuP* t 236} .0>R*(2I B) !9P 
Ct3)iCltR«t236).CHR*(2IB).S^CtS)iCHR*t238 
)iCHR»C2l8KSPC{5);CHR*C2J6JiCMR*t2l81 
2170 COLOR 8, 13, ,fl;fOLOR 9, 1 3, ,rl 'COLOR B 
,14,.AiC0L0R 3, 11. ,fl 'MUSIC "C4R204' 
2188 COLOR 15,13,.8'COLOR l«, 1 3, ,B 'COLOR 

15, 1 4,, B 'COLOR 16, 14, .Bnusj: E4R7F4" 
2138 COLOR 22, 13, ,C 'COLOR 23, 13, ,C 'COLOR 

22, 14, .C'COLOR 23, 14, , C 'MUSIC ' 01R7A4 - 
22BB COLOR 23, I 3,, 'COL OR 3B. I 3. .0 'COLOR 

79,14, ,0 'COLOR 3B,I4,,0'MUSIC"B4R2*C4" 
2218 FOR T-0 TO 30«;n€XT T 
2220 fJOTO 723B 
7238 GOSUB 236B 
22*0 PRINT '■■ Uov< a«i irouui lo "* 



22W 


GET 1 


* 










2270 


IF F« 


\"0- 


THEN 


GOTO 


398 




2390 


IF Fl 


l-'H" 


TNEN 


GOTO 


23B8 




2236 


GOTO 


2268 










2388 


PRINT'BB 


Do~»Q5», J 


• cdmhi 


ku.i a 


• '<w 


Iff.. 


." 'PRINT' » flu 


rtvolr. 


,. «l 


Iq p^oc^a 


fl* to 




i MUSIC 


"-C4C*C 


8B-06" 


2318 


BOTfl 


2318 










2320 


REM 


Mill 


(till 


,11 1 1 • 


UUltll 


l(tt«* 


2336 


REM 


* 


Soot- pros' - mum* 


* 


2348 
2358 
2360 


REM 
REM 

PRlHl 


I,"//* 


tuu 


,« d* 


rwSTER MIND » 


■B-: 


MUSIC M3« 






2378 


PRIN1 


TflBt 


11) ■ 


MrtSTE 


R MINO" 




2368 


FOR , 


-S53SB TO 


3S3M 






2398 


POKE 


•>, 143 










2408 


NEX1 


J 










2410 


FOR 1 


• |4 J 


21 








242B 


PR1N1 


TOBt 


I ) CMR*(72 


91-pRIN' 


00" 


2430 


NEXT 


i-PRI 


NT 








2410 


RETURN 










2460 


REM 

REM 


» 




Bnlnt 


........ 


""I 


2170 REM 
2180 REM 
2130 DiMf* 
3.5,4,6.'. 


t ntt 


;cr.o 5 


• d* i 


inSTfR filNj . 








i i - i 




i, i , > 


.2,7, 


3,7,4 


.7,-^ 




2588 


DATA 


:','■,■' 


,■•.3, 


J, 9. 7 


,9, ','8. 


1.11.1, 


'7,1, 


13,1. 


13,2, 


II. 3, 


13,4. 


13,5,16, 


3,11,3, 



I OMH 19, 1 , IB, I , 17, I ,16, 1 , 15, I , l'..,7, 
I, 16, 3, 17, 3, IB, 3, 19,3,19,4,19,5,18,5, 



.27. 



73,1,24,: 



,25, 



2258 PRINT ' 






2530 OflTO 77,1,27,7,27,3,27,4.27,3,28,1 

29,1. 38,1,31,1,78,3,29.3,38.3,28,3,29.3 

30,3,31,3 

754B 0i4ln .13,3,13,1, H. J, 13.7. J), '■ H- ' 

33, ',36,1,37, I, 37, 2, 37, J, 36. I, ' . < m . I 

36,4,36,5,32,3 

25M OflTfl 8, I 2, 8,11, 8,18,8,9,8. 8.3, B, IB 

9,18,10, IB, 11.11. 8, 12,6. 17.9, 12.10.17.1 

.17,17 

2566 OflTfl 16,8, 10,3. I r,, IB, 16. I I, 1 3, 12 

757B OflTrt 20, 12,76.11,28,10.20.9,28,8,2 

.8,77,9,^, I 0.22, 11, 23, W.71. I 7. 71. 11.7' 

. IH. 71,3,24,0 

2580 DhTI 28,11,28,3,78, |B, 28. 11, '«■ '2./' 

,B,38,B,3I .8, J7.9.32, 1", )V, I 1, 31 , 12, l",i 

2,29, 17 



LA TOUR SOMBRE DE MORDOR 



La fatalite* vous a d6sign6, vous, Frodon !e Hobbit, 
pour aller reconqu6rir les 7 anneaux de puissance 
dans le pays de Mordor. 

Tous ces anneaux sont rassembles dans la tour som- 
bre de Mordor, sorte de labyrinthe infernal, sans sortie 
ni entree, concu et realise par les puissances malefi- 
ques. mais Gandalf le magicien, grace a ses pouvoirs 
magiques, vous a teleporte quelque part dans la tour. 
Votre perilleuse quete, dont depend la liberty des peu- 
ples du bien. commence... 

Jerdme BARBAROUX 
Mode d'emploi: 

Le listing: Pour obtenir les matrices noires des lignes 41 a 58 et 125 
& 127, faire: 
New en mode RSV 

Mettre A en SHIFTA (taire SHFT A A ENTER) 
Revenir en mode RUN et taire POKE 32 769.76. 
Lorsqu'on tart maintenant SHIFT A en mode PRO ou RUN, on ob- 
tient une matrice noire. 

Remarque: L'imprimante remplace toutes ces matrices noires par 
des L ne raliongez pas les commentaires: une fois le programme 
lance il ne reste plus que 2 octets libres. 

Le but du jeu est done de sauver tous les peuples du mal. Pour 
cela. il faut posseder les sept anneaux qui sont tous dans la tour 
sombre de Mordor. 
Deroulement du jeu: 

1) En mode RUN, faire def.A 

Patienter alors environ V20', le temps que i'ordinateur vous prepare 
un labyrinthe a cbaque fois different. Cela nous laisse le lemps de 
vous procurer un crayon et une feuille quadrillee (eventuellement). 

2) Vous voila transports dans le labyrinthe, dans une salle determi- 
nes au hasard par I'ordinateur. 

I'afficheur representant ce que vous voyez dans la piece ou vous 
etes est separe en 3 parties: Les 8 premieres cases symbolisent le 
mur qui se trouve a votre gauche, les 8 suivantes sont le mur de- 
vant vous, et les 8 demieres sont le mur se trouvant a votre droite. 
les f symbolisent les coins de la piece (2 I torment un coin). Si au 
milieu d'un mur se trouvent 2 matrices noires, e'est qu'il y a une 
porte dans ce mur. 

3) deplacements: pour se deplacer, il faut utiliser le pave numerique: 
votre position est le 5, pour aller tout droit, appuyer sur le 8. 

Pour aller a gauche, appuyer sur le 4 

Pour aller a droite. appuyer sur le 6, et pour faire demi-tour, appuyer 
sur le 2 (on peut toujours faire demi-tour). Un bref bip validera votre 
emplacement. Si vous pressez une mauvaise louche, vous vous re- 
trouverez au meme endroil. 

Autre exemple: si vous marchez vers le nord et que vous tournez de 
90* a gauche, vous marchez maintenant vers I'ouest. Si vous tour- 
nez a droite. vous vous retrouvez face au nord. C'est pareil dans le 
programme. 

4) Les cases particulieres (environ 40) 

Ces sont des cases qui ne sont pas vides. Elles peuvent contenir 4 
choses differentes: 

- 10 sailes ont une fiole: vous pouvez la boire, repondre enter. 2 
cas possibles: 

c'est un poison (1 chance sur 10): vos points de vie sont ramenes a 

5. 

C'est un elixir: si vous n'avez pas tue trop de dragons, vos points de 

vie seront augmentes. Sinon I'elixir vous affaiblira. 

Si vous ne buvez pas. (N enter), vous pouvez continuer votre che- 

min. 

- L'hyper espace: 2 ou 3 cases de ce type dans la tour. Elles ont 
pour effet de vous transporter ailleurs (mais oil?) dans le labyrinthe. 

- Dans 20 sailes se trouvent 1* dragon: II vous faut combattre. en 
vous servant une fois de plus du pave numerique, qui vous permet- 
tra de parer les coups du dragon. 

Lorsqu'il frappe "en haul", parez en appuyant sur 8 

Lorsqu'il frappe "en bas*. parez en appuyant sur 2 

Lorsqu'il frappe "a droite", parez en appuyant sur 6 

Lorsqu'il frappe "a gauche", parez en appuyant sur 4. 

Lorsqu'il "recule". em pressez- vous d'attaquer en appuyant sur leV. 

Ouand vous avez vaincu un dragon et que vous retoumez sur les 

lieux du combat, vous voyez "un cadavre": bon moyen pour se repe- 

rer! Chaque dragon tue rapporte 4,3 points d'argent. 

- Dans 7 sailes se trouve un anneau: ils faut 10 points d'argent pour 
acheter un anneau. Si vous ne pouvez pas I'acheter, nolez sa posi- 
tion, vous reviendrez I'acheter ulterieurement. 



5)Les points: 

Poinls de vie: lorsque vous n'en avez plus, vous mourez irremedta- 

blement. 

Points d'argent (agt): vous en obtenez en tuant des dragons. II en 

faut 10 pour acheter un anneau. 

Points de force (fee): 3 initialemenl. mais chaque anneau vous en 

donne un de plus. Les points de force vous permettent d'enlever plus 

de points de vie aux dragons. 

6)Arret provisoire: Vous pouvez interrompre une partie en cours. en 

mettant le PC 1251 sur OFF lorsque I'ordinateur vous arfiche le plan 

d'une salie. Pour reprendre le jeu, faire def "C" (C comme cont) et 

vous vous retrouverez dans la meme salle. 

Conseils pour le jeu: 

Pendant que I'ordinateur determine le labyrinthe prenez une feuille 

quadrillee et un crayon afin de vous faire un plan de la tour. 

Sur ce plan, notez les portes par un trait et les murs par un point: 

ce sera plus clair, de plus, marquez la case ou se trouve un dragon 

avant de debuter un combat: ainsi vous n'oubliez pas votre position 

apres le combat, (pour cela. augmentez le wait de la ligne 220). Par 

contre, ne notez les places de fioles ou des anneaux que si vous ne 

les buvez pas ou ne les achetez pas. cependant. reperez scrupuleu- 

sement les cases d'hyper espace pour les eviter ulterieurement. 

Tactique: Avant d'explorer le centre de la tour, essayez d'abord d'en 

faire le tour. Ainsi. lorsque vous tombez en hyper espace vous irez 

de nouveaux sur les bords. e! vous vous retrouverez plus facile- 

ment? II n'y aura alors plus qu'a faire coincider les 2 plans pour 

avoir une vue plus precise du labyrinthe. 

Pour augmenter (ou ralentir) la vitesse des combats, modifiez le 

wait de la ligne 230. 

Si malgre tout, les combats sont trop durs, augmentez la variable V 

de la ligne 100. 

On constate qu'on ne peut pas veritablemuent parler de labyrinthe. 

En effet. le plan de la tour est assez simple. Par contre, les difficul- 

t6s sont frequentes. 
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15? Z»-"F#ITILLEV 0011*21^ OUTPUT "WlLLEMSTftC- 11 . 155 ■ 7 
»2 OUTPUT" 996 Vn2" . 155.49. 2 ft».IN?TP«'l> 

154 r L ? 

155 C0L0P9,1.7,4 

156 CL?PL0T15.<>2. 210. 60,4 PLOT15.220. 180, 190. 4 

157 PLOT20,216,94,94,3PtOT20, 196,94,18,2 PLOT20.16 
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.NIVEAU DE LANGUEiune idee originate pour apprendre un 
langue ou son argot! par Olivier BERNARD. 
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Pour les heureux possesseurs 
de Commodore 64, le jeu "Le 
Sonneur de Piques" plaira 
sans aucun doule aux petits et 
pourquoi pas aux grands! 



NIVEAU DE 
LANGUE 



Je suis formateur d'Adurtes en expression e! communication et je 
souffre du manque de togtciels existants. 

Modestement (je suis un pietre el neut programmeur)j'ai elabore a 
!"aide d'un ami professeur d'informatique un programme que je vous 
communique. II rentre peut-etre dans !a calegorie des "QUIZ pas 
txen fichus", mais il me sert bien avec mes adultes. 

DAroutement 1 : Presentation de 4 verbes dont 2 sont synonymes. 

Deroulement 2: Choix d'apparlenance des mots retenus a un niveau 

de lanque. 

FS: Francais standard. 

FA: Francais soutenu (I.E.academique) 

FF: Francais familiar. 

Duree: 20 Choix 

Niveau: Terminate ou facutte. 

N.8.: II sutfrt de changer les DATA pour faire varier le niveau. 

Pour le formateur que je suis. ce programme presente de multiples 

avantages. 

1) Permettre I'erreur sans la sanction. 

2) Laisser tout le temps pour consurter un dico. 

3) Ne pas seulement apprendre des mots, mais surtout les situer 
dans un environnement lexical: Niveau de langue (ce travail d6rtve 
de ia pedagogie par objectifs). 

4)Habrtuer les stagiaires a d'autres programmes du meme acabit 
par exemple des OCM sur I'etude des Media (ce que j'enseigne en 
Fac) et a plus longue echeance, preparation aux testes d'embauche 
ou examens control^s par questions a choix multiples. 




RESTONS SIMPLES ! 
Cette page educative etant 
reservee aux enseignants. 
I'equipe de Redaction ne 
portera aucun jugement de 
valeur quant a la qualite 
pedagogique des program- 
mes ou articles pubhes Les 
critiques emanant d'enset- 
gnants seront toujours les 
bienvenues elles seront 
pubhees et transmises aux 
auteurs concernes 
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19 REM NI7EAUX DE LANGUE 

11 PRINT "raOMuLIVIER BERNARD POUR LE VIC 
23 "FORL=lTu5080NEXTL 

12 PRINT"i;2«BKMPRRMI LES QURTRE MOTS RFFICHES DEUX 
3QNT SYNONYMES, LES8UELS ? " 

13 PRINT"*r*«**H»*APRES AVOIR CHOISI, TRPEZ LEUR 
NUMERO A LRSUITE DU", "11 ?■" 

14 FORT=1TOI1000NEXTT 

15 P0KE36873, 38 PR-INT"!" 

20 DinTV*<4> 
30 H=O-N»0 

108 REM LECTURE DONNEES 

110 F0RI = 1T04 READTVJU; NEXTI 

120 READN1$.N2S 

138 RERDJU.J2X 

208 REM 

210 PRINT'Tm**", 

250 F0RI=1TQ4 PR INT"]HMil" !"■ : "TVHI; -NEXTI 

280 INPUT"V0TRE CHOI/ H'.RIK 

285 INPUT"* ",R2yi:PRINT"i"; 

290 N-N+l 

300 IF(RlZ-Jl/iflHDP2Z=J2X>THEN500 

303 IF ( R2Ji= J 1 JiflNDR 1 '/.*> J2X > THEN500 

318 IFN<2THEN200 

328 PRINT"* C'EST*" 

338 PRINT" "TVfCJttKV ET HV*tJ2Z) 

348 FORI-1TO3000 HEXTI 

508 REM 

518 PRINT'TOTM", 

520 PRINT"PHRMI CES 3 NIVEAU*" 

322 PRINT "MB IF3* FRANCAIS STANDARD" 
524 PRINT"* IFF* " FAMILIER" 

526 PRINT-JO IF A* " SOUTENU **»" 

527 PRINT" CHOISISSEZ CEUX QUI" 

528 PRINT" CONVIENNENT A CES" 

323 PRINT" :«DEUX nOTSaJM" 
538 PRINT" B TV*<J1X>" Vi INPUTT1* 

335 PRINT"** "TVf(J2X>" 11". INPUTT2* PRINT"!" . 

348 PMHI 

558 IFTI$«=N1*ANDT2»-N2*THEN590 

560 IFM<2THEN518 

570 PRINT"* C'ETRIT "HI*" ET "N2* 

575 FORL a lTO3000NEXTL 

589 G0T0593 

390 PRINT"** C'EST TRES BIEN" 

392 FORL-1TO5000 NEXTL 

535 IFTV*<JIK>="CONFINS"THEN GOTO 1500 

600 GETfl* IFfl*-""THEN600 

610 GOTO30 

700 END 

10B0 DATA"TRIVIAL"."TRISTE"."EMERITE","VULGRIRE" 

1801 DRTAFA.FS 

1002 DRTA1.4 



1005 DATfi"SRLIR","EHBROUILLER"."QBSCURCIR"."SITUER" 

1006 DRTflFS.FS 

\l% SrTR"SE DETACHER", "SE PROFILER". "SE DEPLRCER". 
"SE REJOINDRE" 
1011 DATAFS.FR 

1015 DATR'*NRUSEABOND","riALSEANT","DEPLACE", 
"DIRECTIF" 

1016 DRTRFR-FS 

1020 DRTH"nIp0TISME", "PROTECTION", "FflVORITISME", 
"FRSCISME" 

1021 DRTRFfl.FS 

!e25 DAT FTCLOQUER" . "RBRTTRE" , "FLANCHER" , "CRAQUER" 
1826 DflTRFS.FF 

1030 DATA"SIMULER","RENDRE","HUMILIER", H RRVALER" 

1031 DATAFS.FF 

1035 DATA"ABRNDONNER","OBTENIR"."LARGUER"."PARTIR" 

1036 DATAFS.FF 

1037 DATA1.3 

1048 DRTH"PEINE". "PROSTRATION", "SOUFFRANCE", 

"EPUISEMENT" 
1041 DRTRFR.FS 

1045 DRTR"PLETHORE"."PRRTICIPRTION", "PROFUSION", 
"PRIORITE" 

1046 DATAFR,FS 

1850 DATA"SQUCIEUX", "ABERRANT" -"IDIOT", "HRRDI" 

1051 DRTRFR.FF 

\IU SrTA"0PINIRTRE", "ELEGANT", "COURTQIS". "RCHRRNE" 

1056 DRTRFfl.FS 

lUe SAlfl"EMINCER","EDULCORER"."nEUBLER","nODERER 

1061 DRTRFR.FS 

\l% Sa?£"CONSCIENT","SALUBR£", "SENILE", "GATEUX" 

1066 DATAFA.FF 

\l% SaTA-ROISSEHENTS", "COMBINES", "CURIOSITES", 

"AGITATIONS" 

1871 DRTAFS,FF 

1873 DRTR-FRUTES", " INTRIGUES", "MAGOUILLES", 

"ATTRRPES" 

1076 DflTRFS.FF 

1980 DRTR"iMPORTUNER","iriPROVISER"."EBLOUIR". 
"ENNUYER" 

1081 DflTAFA,FS 

1082 DATR1.4 

1085 DflTfl"£XPRES","ESCRQC". "EXPRESS", "FILOU" 

1886 DflTRFS.FF 

1087 DRTR2.4 

1830 DATA"ESQUIVER"."ETIR£R","EVITER"."£LANCER" 

1031 DflTflFR.FS 

1092 DflTfll,3 

1095 DflTA"CuNFINS"."LIMITES'\"AIDES"."COIFFES" 

1096 DftTRFA.FS 
1837 DATR1.2 

1500 PRINT'TM*** BRRVO 

1310 PRINT"*** BONNE PERSEVERANCE " 

1528 PRINT"** A BIENTOT"*- 

READY. 



stages LOGO:une proce- 
dure speciale Hebdogiciel. 

LOGO repond present, grace a GREPACIFIC (assoaation specta- 
liste de I'ensetgnement et de la reflexion autour de LOGO. 51 bd 
des Batigncrfles, 75008 PARIS), des stages de formation aux lec- 
teurs d'Hebdogiciel (25% de reduction sur les phx de base!). 
Une occasion a ne pas manquer. 

STAGES PROPOSES PAR GREPACIFIC. 

1) ORGANISATION 

Ces stages ont une duree de trente heures (cinq joumees de six 
heures) et couvrent les cinq micro-mondes dassiques (nombres. 
texte, tortue, musique et iutins) 

Les materiels utilises sont divers, pour permettre a chacun de de- 
couvrir les ditterentes versions de LOGO qui existent actueltement 
et de se (aire une opinion libre sur le materiel et le langage par une 
manipulation personnelle. Aucun pre-acquis theorique n'est de- 
mande (ni en mathematiques, ni en mformalique. et 1'experience 
prouve qu'il vaut mieux ne pas avoir ete "ddforme" par un apprentis- 
sage prealabte de Basic) : toutefois, il est vrvement conseiile d'avoir 
lu, de maniere attentive les carnets d'Helene. fascicules 1 et 2 (6drte 
par GREPACIFIC) ou les articles LOGO parus dans HEBDOGICIEL. 
avant le debut du stage : cela permet de tirer un plus grand profit du 
travail sur les micrc-ordinateurs. 

Les stages sont essentiellement consacres au travail sur machine. 
dans des conditions analogues a ce que sera le tonctionnement 
avec les enfants en classe : L'apport theorique magistral est tres 
reduit, au profit d'une libre exploration par des projets de groupes. 
Une part importante du stage est consacree a lutilisation dans un 
cadre educatif. avec compte rendu des recherches et experimenta- 
tions en cours. 
Les stagiaires des annees prece^dentes qui ont eu la chance de faire 

Siiper leur lieu de travail d'un (ou plus rarement plusieurs) postes 
GO ont tous ete a meme de d6marrer des projets avec leurs 
Aleves. II est done indispensable d'avoir deja une certaine pratique 
pedagogique (dans le cadre scolaire...ou familial) C'esl dire que nos 
ateliers ne sont pas destines aux enfanls eux-memes. 
La participalion a I'atelier (non compris les frais d'hebergement) est 
de 1000 F, 

2) LISTE DES STAGES : 
LILLE : 2 au 6 juillet 

MENDE : 2 au 6 juillet (hebergement possible a I'ocole normale de 

Mende, pour une somme modique de 360 F.. comprenant le loge- 

ment et les 3 repas de la journee). 

MONTPELLIER : 2 au 6 juillet. 

BORDEAU : 2 au 6 Juillet. 

QUIMPER :2au 6 juillet. 

PARIS ou proche banlieue : 9 au 13 Juillet. 

DORDOGNE : 30 Juillet au 3 Aout (quelques places region de BER- 

GERAC) seulement. il est demand* d'avoir deja manipuler un peu 

LOGO, quelle que soit la version). 

ALES : 27 Aout au ler Septembre. 

LILLE : 30 Aout au 4 septembre. 

3) INSCRIPTION : 



Le bulletin description est a retoumer a GREPACIFIC. 51 bW des 

Balignolles. 75008 PARIS. 

NOM: 

PRENOM: 

Profession: 

Adresse: 

Tel: 

d6sire m'inscrire au stage d'inltlation a lapproche LOGO qui aura 

lieu : 

du... 

du 



CI Joint un cheque de 375 F.. a lordre de GREPACIFIC. dans le cas 
oil le stage seralt annule faute dun nombre Insuffisanl de candidflts 
(morns de 6 inscrits). le cheque ci-joint me sera restitue. Jo verserai 
le solde soit 375 F.. a louverture du stage, cest seulement dans lo 
cas oil je ne me rendrais pas au stage que GREPACIFIC aurait la 
faculte de garder mon acompte. 
Lu et approuve. 
Oate et signature. 



(d retourner a GREPACIFIC. 51 old dos Batignoltes 75008 PARIS) 



a /a semaine procha/ne 



• •• 



MICRODIS 



3789 3208 



Lorsqu'il est necessaire de modifier un programme en 
langage machine (ou systeme pour reprendre un voca- 
bulaire plus TRS80) il est presque toujours necessaire 
de remonter au niveau du langage source (assern- 
bleur) pour pouvoir localiser I'endroit ou effectuer la 
modification. II seratt particulierement fastidieux d'etfec- 
tuer cette traduction a la main, Mieux vaut utiliser un 
programme desassembleur pour faire ce travail, mais 
de facon un peu brutale. sans vraiment distinguer don- 
nees et programme. 

MICRODIS, fait partie des desassembleurs, il est parti- 
culierement petit et rapide et connait tous les codes 
operation du Z80. 

Bernard DUPIN 



26378 

86380 
06390 

CE608 


TA 


DEFB 

DEFW 
DEFB 
DEFU 


SDK 
32H 

0BM 
32H 


I1NC 
1RD 
■ DEC 
IRD 


06428 

06A3B 


T5 


DEFB 
DEFU 


0DH 
38H 


t IMC 
I REG 


06650 


T6 


DEFB 
DEFW 


OBH 
38H 


-DEC 
tRED 


06688 

08690 


T7 


DEFB 

DEFW 


87H 
2830H 


:LD 
:RED 


065 IB 
06520 


TB 


DEFB 
DEFU 


ABH 


iOPS 


□6550 


' 


TABLES DE 


□E50S5EHBLQGE CO 


06570 
06580 


T9 


DEFB 

DEFU 


B7H 

313BH 


tLD 

tREC 



SB35 80 0791 B 

5837 MOB B792B 

3839 BB 8733B 

SB3A bbbb b79*b 



detb 

OEFU 
DEFB 
DEFU 



^ 



■/. :.• 


4? 


33DC 


t,J 


35FS 


2E 


san 


44 


SMC 


Al 


3G3C 


5? 


SS9C 




5S7C 


•tt 


■_L?C 




SEK 


sa 


9GDC 


49 


56FC 


49 



5722 


B7 


5723 


M 


3724 


01 


S7SS 


18 


572S 


■7 


3727 


IE 


372S 


Bl 


5729 


3G 


572A 


■ 


372B 


3C 


Z71Z 


S? 


572B 


3F 


572E 


M 


572F 


42 


:,7ZZ 


7 2 


5731 


43 


5732 


BB 


3733 


M 


5734 


B7 


S730 


03 


3736 


aa 


5737 


IB 


5738 


07 


3733 


IE 


573(1 


;*z 


^7^5 


36 


573C 


■7 


573D 


39 


573E 


M 


573F 


51 


5748 


72 


5741 


34 



5742 00 
5713 BB 
3744 00 
5745 03 

3748 01 
5747 06 
3742 Bl 

3749 0C 
374A BB 
374B 12 
374C 81 
374C- 15 
374E BB 
374F IB 

3730 87 

3731 IE 



5752 0£ 
5733 0800 
3735 03 
3756 1E1F 

5753 32 
3733 2700 
373B 06 
373C 2700 
373E 06 
373F 1B27 

3761 06 

3762 1127 
5764 06 
3765 1227 
5767 B6 
3768 1327 

376A 07 
576B 3229 
376D 09 
S7GE IR32 

3770 07 
5771 2B0F 

3773 87 

3774 0F2B 
377E 07 
3777 210F 
3779 87 
577A 0F21 
577C 07 
377D 2B10 
377F 07 
3788 1A2B 
5782 87 
3783 2BBF 
57B3 07 



suite du 
listing du N36 



5703 18 
3704 1880 
3706 12 



TOBLE DE DESOSSEMBLOGE CODES 10 



86658 ; TOBLE DE DESOSSEMBLOGE CODES 11 
06678 Til DEFB 12H (RET 



DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 



05200 TOPER 



05230 

05240 TCODES 

85250 

Z52--0 

05270 

05 2S0 

05290 

35300 

05310 

05320 



DEFM 
DEFU 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFn 
DEFM 



•Dl EI EX IN 



CODES IMCONNLlS 



JP JR LD ODC 



85378 DEP 



05440 TOB00 
B5450 
05460 
B547B 



85500 
03510 
05520 
05330 
05540 
05558 
03568 
03570 
83380 
03530 



05610 T0B11 

0S62B 

03630 

05E40 

05850 

Z5EE0 

83670 

85688 

B5690 

05700 

05710 

05728 

83740 
05758 
85760 



DEFB 
DEFU 
EOU 
DEFB 
DEFB 
DEFB 
I D E X 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



'ODD BIT DEC EXX INC NOP OUT 

■ RES RET RST SBC SET CALLPUSHODD"' 
■ODCttSUB SBCHOND XOR OR CP RLC " 
' RRC RL RR 5L0 SRQ SLL SRL RLCO" 
• RRCORLO BRA DOA CPL SCF CCF HALT' 

■ PUSHDJNZNEG RETIRETNIM LDI CPI * 
'INI OUTILDD CPD IND OUTDLDI RCPI R" 

■ INIROTIRLDDRCPDRINDROTDRRLD HRD ' 



57BE 05 
37BF 2908 

57C1 4D 
57C2 0100 
57C4 BF 
37C5 2O0F 
57C7 04 
57C8 0F2O 
37CA 03 
37CB 231ft 
57CD 03 
57CE 1910 
57D0 01 
57D1 B000 
57D3 02 
57D4 00 
57D3 00 



06720 
06730 
06740 
0675B 



57AC 0C 
570D 0000 
57ftF 10 
S7B0 1O00 
57B2 05 
57B3 2200 
S7B3 10 
57B6 1E00 
STBS 87 
37B9 1B1H 



06910 
06920 
06930 



05730 TED01 DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
TOBLES DE 



DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFW 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 



Tl-Tl 

T2-T1 

7 
T3-T1 

T4-T1 



T5-T1 



T6-T1 



T7-T1 



T8-T1 



T13-T 
T14-T 



TI6-T 



T17-T 



T21-T21 



T22-T21 

T23-T21 

1 

T24-T21 



T25-T21 



37D6 15 
57D7 3329 

37D9 31 
S7DO 1600 
57DC 16 
57DD 2900 
57DF 31 
37EB 1908 
57E2 4D 
57E3 0300 
57E5 31 
57E6 1000 
37E8 4D 
57E9 0200 
57EB 31 
57EC 1E80 
57EE 4D 
57EF 0480 

57F1 49 



07880 T15 

07090 

07120 TIB 

07130 

07140 

07130 

07160 

07170 

07180 

07190 

07280 

87210 

07228 

07230 

07240 

07230 

07250 

07270 

07290 T17 



DEFB 
DEFW 

DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFM 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
D6FB 
DEFB 



DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 



DEFB 

DEFW 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 



BFH 

0F2AH 

BAH 

2O0FH 

B3H 

1A23W 

03M 

1019H 



B5H 
22H 
IBM 



iCOLL 
tCOND. ADR 
(PUSH 
iSC 

1CALL 

I AM 

iPUSH 
IDE 

;COOE SPECIOL 



!COD£ SPECIOL 



SCODE SPECIOL 



:HOLT 'SPECIAL CASE 



05900 
05910 
05928 
03330 
03960 



1 



T23-T21 
DESOSSEMBLOGE 



37F0 4A 


07400 T20 


DEFB 


57FB 3100 


074 IB 


DEFU 


57FD 00 


07420 


DEFB 


57FE 3431 


07438 


DEFU 


5B00 11 


07440 


DEFB 


5801 3431 


07430 


DEFU 


3803 13 


07460 


DEFB 


5804 3431 


07470 


DEFW 



TABLE DE DESASSEMBLOGE CODES CB 
iOPSHIFT 



!BIT 

iBIT.REG 

:SES 

iBIT.REG 

1SET 

iBIT.REG 



07490 ; TOBLE DE DESOSSEMBLOGE CODES ED 



86830 
06040 
06830 
06060 

86070 



06150 T2 
06168 
86178 
061B8 



06210 
88228 
0623B 
06240 
06250 
06260 
06270 



DEFW 
DEFB 
DEFU 
DEFB 
DEFU 

DEFB 
DEFU 
DEFB 
DEFU 

DEFB 

DEFU 
DEFB 

DEFM 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 
DEFU 
DEFB 



32H 
27H 

06H 

27H 

06H 

2710H 

B6H 

271 1M 

06H 

271 2H 

06H 

271 3H 

07H 
2932H 
89H 
321AH 

07H 

0F20H 

07K 

208FH 
B7H 
BF21H 
87H 
21 BFH 

1A2BH 
B7H 

2BIAH 



lAF.AF' 
IDJNZ 
IDE PL. 



5886 84 


87318 


T21 


DEFB 


B4H 


lIN 


5807 3026 


87520 




DEFU 


2638H 


iREG. 


3889 0F 


07548 


T22 


DEFB 


BFH 


tCUT 


3900 2630 


87330 




DEFU 


3026H 


KO.f 


580C 14 ' 


87570 


T23 


DEFB 


14H 


tSBC 


388D 1032 


87380 




DEFU 


321 AH 


THL.Rt 


388F 08 


07598 




DEFB 


08H 


iADC 


3810 1032 


87600 




DEFW 


321AM 


iHL.RI 


3812 07 


87620 


T24 


DEFB 


07H 


:LD 


5813 2B32 


07838 




DEFU 


322BM 


itODR 


3813 87 


87648 




DEFB 


07H 


tLD 


5816 322B 


07630 




DEFU 


2B32H 


iRD. iC 


3818 33 


07680 


T23 


DEFB 


33H 


tNEG 


3819 0008 


07690 




DEFU 







381 B 33 


07710 


T26 


DEFB 


33H 


IRETN 


381 C 8800 


07720 




DEFW 







3BIE 34 


07730 




DEFB 




IRETI 


381 F 0880 


07740 




DEFW 


8 




3B21 36 


07760 


T27 


DEFB 


36H 


SIM 


3822 3800 


87770 




DEFW 


3BH 




5824 87 


07798 


T28 


DEFB 


07H 


ILD 


5B23 368F 


87800 




DEFW 


0F3GH 


il. A 


5827 07 


07810 




DEFB 


87H 


tLD 


3828 370F 


07820 




DEFU 


0F37H 


|R,0 


3820 07 


07830 




DEFB 


07H 


ILD 


382B 0F36 


07B48 




DEFW 


360FH 


lA. I 


382D 07 


07e58 




DEFB 


07H 


ILD 


382E 0F37 


07860 




DEFW 


370FH 


10. R 


3B30 48 


07870 




DEFB 


ASH 


t RRD 


3831 8880 


07880 




DEFW 







3033 47 


07890 




DEFB 


47H 


1 RLO 


3834 0000 


07380 




DEFU 








3B3F 1C1F 
SB41 BE 
5842 AD 
5859 0D 
385A 28 
586F 0D 
5870 80 
5871 
, 5280 

COD 571C 

COO10 5A78 

C0D48 5485 

CGD68 3A91 

C0D7B 5A9S 

C0D75 3408 

CODSe 340B 

COD90 54C0 

CODOPE 3473 

DATA 16 550A 

D€CB 334F 

DEE0B 5331 

DEC01 533B 

DEC82 5336 

DEC1 535D 

DEC2 536D 

DEC3 537B 

DEC31 53A2 

DEC4 5304 

DEC5 53C4 

DECODE 3332 

DECSP 53C7 



BS340 
83080 
B317B 
03 268 
83338 
B341B 
B3A3B 
035A0 
03068 
83010 



DEP 

DSP0 

DSP1 

DSP2 

DSP3 

DSP4 

ECLATE 

FIN 

HEXVAL 

HX3 

HXV1 

INDEX 

MOVCOD 

HSGINI 

OP10 

0P11 

0P12 

0P13 

0PI31 

0P14 

DP1S 

0P151 

0P16 

0P2 

0P21 

0P22 

0P23 

0P24 

0P25 

0P2E 

OP30 

0P4 



0P7 

0P7B 
0P7I 
OPS 
0P81 



OPO 

OPB 

OPE RON 

OPSP 

REG I NO 

RECS 

REGS1 

REGS2 

REGS3 

RGN10 

RGN15 

RGN3 

RGN35 

START 

STR1B 

STR15 

STR2B 

STR4B 

STR45 

STR5B 

STR55 



Tl 



81538 

B1320 
B1348 
81618 
01668 
81870 
B1S90 
B2070 
81298 
B211B 
571F 83370 
53CE 82140 
53D8 02158 
53D8 02188 
53EA 82220 
53E2 82218 
543F 82718 
5871 8886B 
530E B 1848 
5327 81160 
5311 01050 
53EC 82248 
5484 82378 
583F B799B 
551B B4130 
5526 84258 
5531 04310 
5337 04340 
553B 04360 
5542 04408 
5348 B4438 
S34C 04458 
5568 04568 
5302 84988 
556C 84638 
5S7A 84698 
3376 84788 
557C 04738 
5582 0476B 
S38B 0A810 
55BB 03150 
54DB 03740 
54 EI 03770 
54EB 03838 
54F8 03878 
54F6 03930 
5582 04080 
3505 84038 
5580 04068 
S50C 04B7B 
5310 04100 
5512 04110 
37 ID 85330 
57 IE 83368 
34C3 03688 
53BE 84868 
54 ID 02470 
5454 82868 
SASD 82900 
3464 B2930 
5467 02950 
5426 02520 
54 30 02658 
542F 82588 
3437 82630 
3280 00240 
3288 08270 
5292 00330 
529A 00360 
52CA 00620 
52DB 887 3B 
52F3 80980 
52F9 00930 
5752 03980 



T22 
T23 
T2A. 
T23 



T9 

TMB00 

TABU 

TCODES 

TED01 

TOPER 

VALMX1 

V0LMX2 

XXX 

VYV 



S7A3 06700 

37BB 06870 
37 BE 06900 
57D6 07880 
57D9 07120 
57F1 07230 
37F4 07320 
57F7 07358 
576A 06150 
57F0 07480 
3886 07510 

5889 07548 
5B0C 87578 
5812 07628 
5818 87688 
5818 07710 
5821 07760 
5824 07798 
383C 87968 
S77B 06200 
3788 06370 
S7BE 86428 
3791 86450 
3794 06488 
3797 86518 
5790 06578 
3722 85448 
3732 0361B 
35FC 03240 
5742 03700 
55C8 032BB 
53B2 03110 
35A9 05B4B 
5720 03380 
3721 85390 



nSGINI DEFU 

DEFB 

DEFM 

DEFB 

DEFU 

DEFB 

DEFB 
FIN EOU 

END 

88448 02468 

03420 83558 

B3238 

83198 

83878 

83530 

03348 

03450 03510 

00458 

08390 04030 

B201B 

01910 

01330 

01750 

01450 

01360 

01540 

01830 

0170B 

02850 

004 30 

01350 01670 

019A0 04380 04538 

01530 81630 01658 

02120 

02150 

02180 

01590 

01340 01438 02008 



81180 

01230 

82210 

82148 82178 

00258 08268 

04188 

04190 

84 250 

84318 

84338 

84348 



84898 

84650 

84780 

04730 

84768 

85138 

83678 

03640 03898 

04 240 04300 06558 

83768 

83870 



1F1CH 

0£H 

•MICRODIS 

BDH 



BI/1B/S3* 
I. DUPIN* 




06180 

03330 

BA238 

04860 

04290 

88500 81770 01898 02330 03260 05360 

00540 02020 02420 

00530 88610 

03660 03698 03820 04490 84620 04720 047T38 

01790 0181B 

82388 82418 

02870 

02890 

02910 

02490 

02510 02530 02550 

01840 01860 

02608 

80990 BE070 

80300 

00890 08958 00970 

08868 

08528 00560 



01810 

82220 05458 85458 05470 03498 05510 05538 

05550 05988 06000 

02160 

02190 05620 03620 03640 05660 05680 837BB 

03720 06670 06690 



03660 

0S6SB 

85700 

05720 

BS740 

05760 

01320 

03470 

01510 

01578 85790 83790 85818 B5S30 

85890 87510 87338 

05810 



05930 

01620 01648 
03498 



03830 B587B 



05370 

03590 

02130 

02230 

82208 

83140 

01580 

84910 

0A6AO 0A780 04800 85090 

08768 04548 84698 83B20 

02298 02798 82880 02970 03400 83430 04590 

02240 82738 82928 03490 



TflS 



80 



FLIP 



Ce programme simule au maximum un flipper. II 
comprend des cibles. des couloirs, des lumieres, des 
multiplicateurs de bonus, ainsi que des parties gratui- 
tes. 

Les mouvements de la boule sont executes en langage 
machine, sauf ceux en diagonals, ce qui permet de 
rendre le jeu tres rapide et d'eviter le clignotement de 
la boule. 



Stephane MULLER 



Inslructions: 

Au depart vous poaseder Irois parlies a votre credit, chaque partie 

comprenant tro's boules Les touches M el Z correspondent au bou- 

ton du dipper. Pour envoyer la boule, il taut appuyer sur M 

Les mouvements possibles apres le lancement: 

• Eleindre la lumiere bleue dun couloir, ce qui vous rapporte 5000 
points, puis tomber sur le champignon 

• lorsque la boule lombe sur le champignon, elle peul ressorlir par 
I'uno des seize possibililes. 

Aller dans la capsule ce qui vous rapporte 1000 points 

Faire un avion central, vous perdez done la boule 

Aller sur un multiplicaleur de bonus ce qu' rapporte 10 points sup- 

plementaires au bonus a chaque contact. 

Monter eleindre une lumiere bleue. 

Tomber sur un des flippers, 

Aller au bond du Hipper pour lesler vos reflexes, si vous n'appuyez 

pas a temps, la boule lombe. 

Aller dans le couloir de gauche pour vous detourner. 

• Tomber directement sur un des deux flip. 

Vous abattez une cible, qui vous rapporte 2000 points (il taut fes 
abaltre toutes pour qu'elles reviennent). 



Tomber au milieu, au quel cas.vous perdez la boute 
Faire une passe sur lautro flip Pour ceia a taut appuyer sur ie bou- 
ton juste avant que la boule ne tombe au mrteu 
Lancement du programme: 
Tapez RUN 

Une routine permet de charger aulomat>quement te langage ma- 
SSI pourquoi il taut attendre qoetques seconrJes apres la 
presentation pour voir apparait/e le flipper. Il est preferable de char- 
ger d'abord le programme sur une cassette avant de le lancer car 
s'ii y avail une quekronque erreur de frappe. dans tes routines en 
langage machine I'ordmateur pourrait se Woquef. 
II est done primordial pour la bonne marche du programme de ne 
faire aucune erreur de frappe dans tes routines en langage ma- 
chine. 



SPECTRUM 



10 



iO su 



■■ - .' .' 



"us? 



SO TO 



SOS 

11 PLOT • ,8 DRA< 
96,0 ORAU -0,-»0 

ooau -6.-2* op.ru 29. a 

-24 ORAU -29.3 OPT-- 
PRU -32,0 

ia pl6t so. a daru il, si orr 

16 ,0 DRAW -7,-38 DRRi ' - 

paw -r 



16 . -7i 



CIRCLE 122 ,96 , i 
au ?2, 5 dSSu 

a DRAU -04,0 



,• 

ORAU 



16 , Z DRAW 



:.'-:--.. 32, 132 OR 
, -104 ORAU -e, - 
RAU -9 , -40 DRAU 

OAF.U 3,16: ORA 



%% 



>RINT a 



.. STEP 2 
If COC-B *tll> >96 THEN LE 
- . ■ ICOOC •• 1 l I -32) 

160 IF CODE • •(1*11 >*6 TMEN 
- - I I ♦ !> -3 



3* • 



7fT,« 



"■•-': 



aio 



160 SBXT l 

168 PgTURM 

aas CLropf5"3Ti" 



210 LET c -60200 

215 LET a • -" 1600a77c060B17c 6121 
3ra*BBra-Bcl7Bc«8a4 7ck>422 69 47ac«a 

7B7cto4 4a63*7aC60a 377* c 640 67 c 9 " 

aso oo sue 160 

221 sen 

S2S L*T r -60374 

2 30 LET •». 'b? f 2 60 92 5004 fSldbl 
739ia3336aa6 '2922397c ;e3c67c3" 

236 SO SUB 160 

»3S »£" 

837 REM 

240 LET C -60296 

24? Lit M."73cda5tb'lCB^d7a«E.B 
-,0S7« 3002121*2313 r©e 1 = 2" 

260 90 SUB ISO 



26 1 



_3» -=i 
266 LET 
260 >LET 



C -60619 

• ■-■■aeO02*ea«6« lad?* a i 
. __ i2c3«22«5-^««« niiaiaaib 

■ ■220' a • :;a3ii3IVl?i' »« 12c 3* 94 

z: d6«« &ii0i32it-7» case ■ ■ ■ 

3cd8a«b«12c3a96«3cdS* 
~d3*27«Bcd6a 



a a tSd 



4641 5=9 

hi 88. 

367 PEr 



SUB 150 



_ -60650 

873 L.ET «»-'2600»aa0a3* l»e3«96c 
• COSltbi I2d3aa5«8cd6a« & 110 122 107 

5-d3a«bll2'1321b7*b223'b-12<3«U2* 
3Cd»»« ba 12d 3Hl«!c -j 6a " 
msaS'bt 12c3a27«6cd6a 



dea«bc2 ' 

260 



d3t30 



aei 

262 
285 



sue 160 



C -60653 



a2eO0*5» lS53«9d 



290 LET **= 

■^ - d 6 * a c» lS13»*i«i'.no«iB»i«. 
* -,i5S' fc« ;333«Sn!'.dHs oa 12* 
?'d5a*bll01011b7aba20'c«1^6 
5'd6a«b« ia*3««6a5':dea« 6 1101 

a 5js« r !>« I233«97«s<:d5a«b*. 124 
HUbCV" 

2 95 SO SUB 150 

236 REM 



;;? 



.-60000 

305 LET a *-' 26a«a«iB0'«5a 18»3« "46a 
;-m*0«ia33t39*3'.!l!««blieil8Uc7 
4 b£20 'O* lJ13*^*«3^'!!l*btl353«3 
3-rd3**bll«1811b7 ■ ' 




340 COTS 0,60,126-126,126.126,6 
a , 

3*?; !>RTR , 30, 

350 &RTR 0,0,0. _ . 

35 5 C-OTO a. 7. 15, 15, 15, 15, 7,0 

350 &RTR 0,125.192.192.192,192. 
125.0 



376 
360 

365 



b , e , , , e , « 

B, 0,0,0,0,1! 
9 . .60 , 126 , 

C-PTP 126,60,0,0, 



126, 126 . 126 



* 6 5 & *T •> 



126 ; is*; 



. w , i. 2 6 '. 126, 126 
.26 , 60 , a , , , 

0!*6T*a!*a,*a,*o,*5 .0 

0, 12, 12, 18, 12, 12, 12, 

,0 ,32 ,32,62, 32 ,0 , 



425 OPTR Z ,B .*,4,4,4,0,0 

430 CRTP 0,0,60,0,0,4,4.0 

436 OOTB 60 , 102 , 19B , 129 , 122 , 195 



;js 




inc a. B«pr «.", ink e 
li.S ■(,»!» U'i: m VI a a* 

V'/ii-, PRINT INK 0, ' ■■?" ■ ■ ■ ■ 






I 



20 

2070 
3076 
2066 
206S 



PRINT IMK 0; 
- - ".INK 

PRINT INK 0, 

PRINT INK 0, 

PR INT INK 0i 

PRINT INK 0; 

•RINT XN 

POINT IN 



PPINT INK 0, -| t"; IN« 
I-; INK 91 W I" 

PRINT INK 9; -% | J'-L.INK 

PRINT ifJK 0, "I J", INK 
I" , INK 0, "f I" 

FRINT INK 0, "I X', INK 

r't..|MS.8i"<J".. u 




318! 



3184 

316B 

3100 



.>OKE 60651, I POI-.e 6«663 , IB 

PRNOOMIZ6 U5R 606 B 

NEXT f 

PRINT RT 7 , 10; •' " 

OO TO 4000 



poKe 60*cl,i Soke 64663,^ 

RRNDQMIZE USR 60650 
N»XT / 

PRINT RT O ,«!■■••' ,RT 1,6, •■ " 
If I. <2f mZ THEN LET lISl-1. 
, r, .a c *5000 PRINT RT 3 , 23; »C 

SEEP ,05,40 
OR '-2 TO 6 

QKE 60001, r POKE 00003,6 
PNOOMIZE USR 60550 
ttXT f 
■PINT RT 6,6, " " 

3271 oo TO 4aaa 



3205 
3210 

3220 



3255 
3260 
3266 
3270 



3276 



3320 

33*6 
3300 
33Z5 



I- ft / ..< T HgM g g TIJ-; T 7g 

SpInT PT 1 , IS, ■'•■'. RT 1,13. 

FOP '-13 TO 6 STEP -1 

POK6 6066 1,1 POKE 60*53 , ' 

BWMDOMIze U6R 50660 

NEXT r 

PPlrjT PT 2,6, ■■•", OT 1-*. " 

'.' ] I -0 Then LET . •?. -l 

CtC .5 000 PRINT RT 3 . 23, • 

eeep .«e,»e 



3345 
3350 
3353 

3355 
3356 
3362 



|3|| 

fast 

3400 
340B 



»rinT A T 1, 15, "I ■■A T 1,13, 
'OP '-12 TO O STEP -1 

EffiKoifiroia SSS?,"""'' 

- -V, "•" , RT l , S, " ■■ 

..*■■ .UT 2 ,4, " " 




3425 nC/T . 
3427 CO TO S3O0 

til! ld>*il!fTl B> , rl l!f fff li 



004 > IF V<-16 TMEN LET 
-PEEK 23670 GO TO 401 
— ' 2367a 



4016 

4016 LET 

4018 REM 

4019 IF d 

4020 PRIM 

4033"eeEP 



POKE 23670, 



" THt>J'-<3B" TVJ i lcjtj 



>Tep -i 

POKE 60653. 
60650 



0,6, ' 

. 02 ,0 

35 FOR '-5 TO 2 

4B30 POKE 60651,6 

4 03 5 RRMDOMXZE USR 

4040 NEXT f 

49*5 PRINT RT 9,1, '■•■', «T 8,2, " " 

4050 FOR ' -3 TO IS 

4 855 POKE 6 0661 , f POKE 50663 . 1 

*aea prndomizc usr saasa 

*B65 NEXT r 

4070 (PRINT RT 16, 2, '■•" , RT IB , 1, " 



7ri9 YmTn g6 ro *5a5 

[ RT 10,6, ■•".RT 11, O.- 
5, ■' " BEEP .02 .0 
fall TO 21 

S08S1, f POKE 63853 , 
3MZZE >JSP 60660 



TO 10 

BEEP 



BCEB .O 
.02 . -50 



4300 if d<>e THCn flO To 433ff 

*305 6ECP .02,0 PRINT RT 6.6 
" , RT 6, 5, "•" , RT 6 , 6, '■ - 



4310 LfT bO -BO ♦ 10 PPINT RT 9 
4315 PRINT RT 6,4,"«'*,flT 3,0, 



*32B PPNDOMIZ 
4323 NO-T r 



4327 90 
4331 REM 
4338 IF 



,7 TmTW fio To 435B 

. 0» ,0 FRINT RT 6,7 
~^ , RT 6,7," '■ 

PR INT RT 9 

'••", RT 3,7, 



4360 90 
4364 REM _ 
4363 IF d ' 

7- = Z2>S e 5 P .. 



bo *10 



INT RT Q 

, RT 5,9, 



4385 PRINT RT 6,9, 
43§*"30'?O 4*04" 

4400 iF n d<>5 THKN oo To 4^85 

44 10 8EEP .02 , : PRINT RT 6,1 
R' , RT 3 , 1 I, ■'«'• i RT 6,10;" " 
4413 RRUSE 6 
4420 LET b( 

4425 PRINT 



-BO *10 PRINT RT 9 , 24 
RT O, 12; "P"; RT 8,11; 



4430 FOR '•« TO 
4436 POKE 60681, 
***« RRNOOMIZE U 



poke eaasa , is 



4463 IF d - >11 T URN Go T C * B BB 

4470 PRINT RT •,7,"R",RT B,6;"R' - 

, RT 6, 7. '■ '■ 

4473 6eCR .0«,80 

4476 FOP f-S TO 2 STEP -1 

4 480 POKE 6 000 1 , ' POKE. 6000 3 , 6 

4440 RRNOOMIZE USR 60000 

4490 NEXT f 

4493 BEEP . 03,40 

4500 FOR I -2 TO 6 

4810 POKE 60681 , ' POKE 60O33 , 6 

4518 PRNDOMIZE U8R 50530 



S.B, " 



4520 .._ 

453» PRINT RT 6 . 7, 

, RT 6,7," " 

483B IF (.(!>-« TMBN LET t I 1 I - 1 

LET • C •• C *6000 PRINT RT 3 , 23 , a c 

4350 OO TO 4000 

45eS lF r V~I*"TWrN— 150 TO 1B'315 

4 563 i PR INT RT 6, O, "P" . «T B , 8; "R" 

, RT 6,0, " ■' 

4B73 FOP t *Z TO 2 STEP -1 

4S78 POKE 60001 , f : POKE 60003 , 8 

4360 PRNOOMIZE USP 60000 

4583 NEXT t 

4390 BEER .03,40 

Sl&i FOR r a2 TO 6 

4 600 POKE 60881 , t POKE 60833 , 6 

A6Q5 RRNOOMIZE USR 6 850 

4610 NEXT r 

4613 PPINT RT 6,6," " 

4320 IF '. '21 -a TMEN LET I ■■ . i H 

LET % C -• r «-5000 PPINT RT 3,23,1c 

4630 i5 TO 4C00 



1 '■- .: 



OEM 



* 6 5? if a - , i3 TH gn oo T a Je ra — 

4640 PRINT RT 6.9. R'.fiT 3.10." 

. rt 6 . a . 

46*2 FOR '-8 TO a STCR -1 

4644 POKE 30001.' POK 3 60C03.1 

SnoomiJI usp F.neoB 

4648 NEXT ' 

I8el ecep .ao,4C5 

4682 FOR ' -2 +0 8 

46B4 POKE 60661,' POKE 60663.1 

4686 n»NDOHiie usp aeaae 

* a a a next - 

4 650 print ot e.o.'R.RT o.ia,'' 

■ RT 0,9. " 

4tl*S IF I <3l -0 THEN ._8T . (31 -1 
L.BT ac-a«*«000 PRINT RT 3,23,* 
4666 OO TO 4000 
4670 IF 4'>fi fHEN 6b TO 4716 1 

:??? ??=~t.;i vtj ■■"■ 

4676 POKE 60630.6 POKE 60322, ' 

*«7« RRNDOM I ZE U»R B0B1S 

466« NEXT r 

466* FOR r -1 TO 1« 

4684 OEEF .»J,-»« 8EEP , «3 , 5B 

4686 NEXT ' 



46oe^LCT BO"bo*ieee print pt 9 

i S ,'*»■', AT 6,13, 

JTJP 



4694 FOI 

439B POKE 60B 

4595 ~- 



'•11 T 

5005 1 
OMIZE 



. 6 



iSR 60850 



KE 6C633. 



4717 LET y -9 LET u - 10 

9, I8,"0" BEEP .02 , 
47 18 FOR r -I TO 3 



1733 PRINT RT x , V . "fl" TfiT K-AjV-1 

4 7 26 PPINT RT 13, 12, "A" . AT 12 . 13 
INr- 2, "R" PAUSE 3 

4730 FOR r-13 TO IB 

4730 POKE 60 68 1,' POKE 6 833 , 12 

4732 RANDOMIZE USR 60-53 

4734 NEXT ' 

4736 LET bOlbOfie PRINT RT • , >4 

47JB gO TO 3000 

47?S if h ^>? T H E N 33 t o 4 7 ol 

4 7 34 LET x •10: LET y -9 PRINT RT 

10 , 9, "A" BEER . 02 ,0 

4786 FOR '-1 TO * 

4 766 LET * ax *1 LET y fu * 1 

4 76 PRINT RT x , V , "A - «T r -1 , y-1 

, ■• " NEXT t 

4 762 PRINT RT IB, 12, "R" , RT 14 , 13 
, INK 2, "R" PRU8E 3 

4764 Let BO -BO • IO PRINT AT 9,24 

4766 FOR '-IB TO 18 

4 7S6 POKE 6CJ33 1.' RQKE 60 863. 18 

4770 RftNOOMlZE USR 6$O80 

4772 NEXT t 

4773 OO TO 8000 

iltl iF M dTTT^TTfeTT-cTcT-^r7jr^4-5T2^ 

4782 LET K -• LET -j -6 PRINT f*T 

9,6, R OECP . 02 ,0 

47B4 FOR ' - 1 TO 3 

47B6 LET v.x.l LET y au - 1 

47eS PRINT AT x,y,'"A r ',RT y - 1 . y * 1 











4793 


LET - ', - r ■-•--. -•■ PRINT RT 9 


a* 


FOR f -13 TO 10 
















i;s? 


next r 
















4012 
























LET H-X41 LET y-y-1 

PAINT RT y,y,"R r ',RT ', - 1 , \ 

PRINT AT 13 4,"A",RT 1*, 




4620 


*i 




■ 






4624 


















RRNOOMIZE USR 6063O 








































*6*4 

4645 


POKE 6C031,' PQK.e 30653 
RANDOMIZE USA 6065C 








































02 ,30 

NEXT ' 














4666 




4088 


























PRINT AT 10,9." " OO TO 


40 


B|M 










/ PRINT AT 11 , 7, '«" , RT 10 , 7 




46B4 


roR r-n to ai 






POKE 80031,' POKE 60683 
RANDOMIZE USR 80830 
















IF INKEVf -"Z" OR INK Eva,- 














W 




B 






















PRINT RT 20,7, "A", AT 21,7," 


4930 


FOR '-20 TO 10 STEP -1 

POKE 00001, ' P0K8 80003 




7 


















5000 
3010 


1 IBIWIalBMl llll Ill *~ ~ II ■■■II 




PPINT™" lJ.II, R";*TT 10 




























PAINT RT M.y.'A^.AT ■♦!,« 




5030 





53*0 IF '.11.9 then SEEP .03,-10 

3047 '_CT xaH L.CT -S 3 

3350 FOP ' - 1 TO 3 

8 08 6 LET *-*-l L.ET y -ji ♦ l 

saoa obint rt * ,y, ■A'*, AT n • i , y -i 

3068 NEXT ' 

307® PRINT RT 8,6, ' 

■ 97S IF C<ll-0 +M»TN _«T CIH-1 

let et-->..l l«t ac-a:>8t«e0 »»I 

NT AT 3.33. 

«MaiiK.s«rt I83.S3.?«T I ».Ji»i 

13, R , iT 13, 13, R ■, AT 1 

a, r P '__LET_c t -0 DIM ■ ' 



1 1,3, 

, Rf 1 
3,19,"- -- ■ ■ 

6086 OO TO 4000 



■.Ull'-f) ; l'l'' "'■ 



MUTANTS 



Vous devez aller chercher des humains, pour les rame- 
ner chez eux, mais les horribles mutants tentent de 
vous en empecher. Bonne chance et n'oubliez pas de 
vous ravitailler. 
Les regies du jeu sont dans le programme. 

Olivier ANGENOT 



-cv 



-99 



A/* 



-.:: WEObl 

MO CALL CLEM 

iso PMsmm 

160 CALL CHMU5!.'«OI337FFF\' 

170 CALL CHWIiSr/OOSODCTEFF') 

180 CALL EH*(15V31B1BIS181S1818!S 

190 CALL CHMIW.'FFFFFFFFFFFFFFFF'I 

200 CALL SCREENS) 

210 FAR l>l TO 16 

■:.■ UU MlWHI f l4,ll 

230 JC1T I 

240 CALL CQ10BI2,5,1) 

:H REJI EIPLICATIBG DU JEU 

260 PRIST IflBllO);-«*tin»t , TTAB(10;;*imjTAMTSf:TftEMO);'t4tt*«ti , :::r;;: 

270 PHUT *SUT:SAUVEX UN MI IN*'::* D'HUflAMS AVANT SUE LES*::* flUIAHIS J 

E VOUS*::* 3EIHJ1SENT':::: 

290 PRIST i'l'tpfqpn sur ust louche* 

290 S0SUB 25BC 

300 PBIIT *.cus pami vous r>viUiJIei*:*.*a bss i (Smite u(iiquetent*::*qiii(![l ! 

t cfirwo dppartit':; 

310 PRINT *wr l'«r«i.*;:*chique ccnioi f*ppcrte*::'10 joints* 

120 PS!*! :;:;:'wiftz suf M Souche* 

330 60SUB 25B0 

J40 PHI »7 "» if i>;!*ct E avec les 

S- -0* 



350 PKIMT * 
J60 MINT : 



'it 



toucnes I 1 

mm* law vous *:;'smtea,e ttt: 



1 cSiip Je': 



370 PSIK7 '*ppuye; for une louche' 

:M S0SU9 2380 

390 CALL C0LD»I11,5,1) 

400 CALL :HAR(I54,'»0000000555355FF') 

410 ;oueuh=i 

420 call chafimo.'fcfcfcfcfcfcfcfc) 

430 call chapu56,*om3030iffofofof , 1 

440 RESTORE 470 

430 REJ DEFINITION DU DECOR 

440 CALL CLEM 

470 MTA FFFFFF7AJ0,FFFF7F3FlF0E,FEFEB£lC,FFF0COeO,FFFFF370!O,18!83E7F7FFFFFFF 

480 DATA 049ClEBFF£FFFFFF,0101050fOF!F7FFF,9CCO£QEO£OFCF£FF,FF7FOF,0,0 

490 DATA O,O71961FFO7O5O507,E0FaFEFFEOEO£0E0,FF3IO9O7Q50FO533,FFFCF0E0AOF088CC 

500 DATA Q,7E67595?67J7;F3D, 2424242424242424, ;C7EC3FFFFFF7E3C,FFFFD[)DEFEFDFFFF,G 

.O.OOOOOOQOgOFOfCFE 

510 DATA 000000000 10F3F7F 

520 RBI LECTURE DES QATAS 

530 FDR 1=101 TQ 124 

:■■■ ••--: ;i 

550 CALL CWtfll.W 

540 NEIT 1 

570 CALL CHARI99,'0OOO0OA2F7FFFFFF*) 

539 MLi Bwm.TOacjws*] 

590 RESTORE 410 

400 REfl QATA ?0UR LA REALISATION DU DECOR 

410 RED LI5HE 24 

420 DATA 93,98,98,94,94,98,98,104.104.98,98,122,122,98,104,99,91 

,122 

430 DATS 109, 98, ?S, 104, 104,98, 93, 78.98, 98 

440 REJI LIEKE 23 

430 MTA 4,104,5,107,12,104,13,107,19,108,20,122,21,122,22,109 

440 REJI LIS* 22 

&7S DATA 9,i02,]0,103, 14, 99, 20,104, 21, 107 



fc 



*s\c 




430 REK LIENE 21 

490 DATA 101,101,101,102,103,101,101,105,94^94,101, 

101,105,102,103,94,101,104 

700 REJI 21 23-32 

710 DATA 110,101,101,105,102,103,101,101,105,101 

720 REJI 20 

730 DATA 98,98,104, 107, 98,114,117. 104. 98.120, 98,108, 

122,122,109,98,125 

740 RFJ! 20 24-32 

750 DATS 124, 99,114, 117, 98, 96, 120, 98, 98 

760 KEJf 19 

770 DATA 4, 114,7, 115, 13,106, 14, 107, 24,114, 27,115, 30,121 

7B0 INPUT 'NGHBRE DE JC!1EUR'*:JJ 

790 FOR 1=1 TO JJ 

800 PRINT 'INITIAL DU JOUEL'R* ; I ; * : "i 

810 input mm 

920 SC!I)=0 



3 5=32 



sv 



^ e 



£90 H*3 

900 T=500 

9*0 CALL CLEM 

920 RESTORE 610 

930 FOR 1=1 TO 32 

940 READ A 

=50 CALL HCHARI24,l,Al 

960 NEIT I 

970 FOR 1=1 10 9 

980 READ A, £ 

99( CAU BCHI»f23,A,B) 

1000 NEIT I 

1010 FOR l»J 10 5 

1MB l£AD A,S 

:■. [ALL KDMR(22,A,Bl 
1040 KIT 1 
:::: m i«I TC 19 
10U : ESD A 



1070 CALL HCWfifZl.l.A! 
1 090 NEII I 
10M FOB I*2J 10 12 
lift ■-.':. I 

1119 UU BCHMr21,!,Af 

1120 KIT I 

1139 FOR 1=1 TO 17 

1140 R£A0 A 

1150 CALL HCHMI20,I,Al 

1160 REIT 1 

■170 FOR 1=24 TO 32 

1180 READ A 

1190 CAU HCHM!20,!,Al 

1200 NEIT I 

1210 FOR 1=1 TO 7 

1220 READ A,B 

1239 CALL HCHAR!19,A,8I 

1240 NEIT I 

1250 CALL HCHARI22,24,101I 

1240 CALL HCKAB(22 1 27,991 

1270 CALL HCKM(21,24,1221 

1280 CALL HCHM<23, 2,1521 

1290 CALL HCHAR'23,32,154! 

1300 CALL HCHMI2I, 27,1221 

1310 CALL HCHAfl!2l, 25,102) 

1320 CALL HCHARI2O,I0,119) 

1330 CALL HCHM!!, 1,45, 961 

1340 CALL HDHARI23,3,I54I 

1350 CALL HCHM!!, 1,96,3) 

1360 CALL HCHM(2,1,96,2) 

1370 CALL HOtAR'3,1, 96,31 

1330 CALL HCHM!2,3,40) 

1390 FOR 1=1 TO LENUTIIJOUEURll 

1400 CALL MCHM!l,5»l,ASC!SES»!TTHJClUEUfi),I,lll 

1410 NEIT 1 

1420 CALL S0UHD!2,1495,31 

1430 CALL S0LWDI2, 1453,0, 1456,1, 435,21 

1440 CALL S0UND13, 234, 0,1345,1,454,41 

1450 CALL SQUID!2,234, 2,2257,3,234, 11 

1440 CALL SOUND{5,454, 1,234, 0,1234,11 

1470 CALL S0L*D!6,1234, 0,123, 1,345,21 

1480 CALL 5X140(2,234, 1,1234,0,1143,01 

1490 CALL KETlO.lt.S) 

1500 IF 5=0 THEN 1770 

1510 CALL HCHM(I,T,6) 

1520 !F K=49 THEN 1570 

[SB IF K=BS THEN 1590 

1540 IF 1=93 THEN 1410 

1550 IF K=4Et THEN 1440 

1540 60TO 1490 

1570 1=1-1 

1580 SOTO 1660 

1590 MM 

1600 SOTO 1670 

1610 T=T-1 

1620 F=151 

1630 SOTO 1670 

1640 WT*I 

1630 F=152 

1660 IF 1(2 THEN 1590 

1670 CALL SCKMfl.Y.S) 

1490 IF 8=43 THEN 1720 

1490 IF 6=154 THEN 2220 

1700 IF 6=40 THEN 2110 

1710 IF IE0461KG0321THEN 1840 

1720 CALL HCHARir.Y.Fi 

1730 IF (I=23)tlY=3IHHEN 1990 

1749 IF 6=154 THEN 2220 

1750 EQIO 1770 
1760 60T0 1770 

1770 IF (IM8IMK41THEN 1920 

1760 0=INTI32tRNDlM 

1790 CALL VCHARH.0, 151,14) 

1800 CALL SOUND! 200, -5,1) 

1B10 CALL VCHARI4, 0,32,14) 

1920 IF 0=T THEN 1840 

1830 GOTO 1920 

1840 HMHH 

1950 CALL S0UN0(2OO,-6,l) 



1171 :»S : t* 

!B» FOP !=; TO uilH) 

IfW CAU CWm,l4**,«C'" • 

!?» KIT I 

1910 GOTO 1494 

1930 IF KIM TIO !940 ELSE 1(9* 

-i rt*sni • 

1930 FOR 1=1 TO UTJKTI1 

I960 C*L HCHM!!, 9- 1, AS 'SEE I I.:, 
1970 NEIT I 
IW SOTO 1490 

- -i> : 
:.:: •■ .- -: 

;;i* 68sui rrv 

2020 CALL 5t*W3,l45M,ZM,] 
UU S««U0O,-B,2J 

::<: Bvra :92o 

2«fl T=5» 

29U CAU SaWIIW,l5M,t>, 545,11 

2O70 CAU S0WE!I0O,454, 1,641,1) 

:;so w=«*3 
:.•: ::;.: :::: 

.: :v; .--. 

::: :• i=: '■»■« :::■: i. : i :' : 

2120 CALL HCHMd. 9,32,51 

2139 CALL SOUHD13.1454, 0,1234, 2,1345,21 

2140 SCIJDLCUR)=SCU0UEUR1'I0 
2150 CALL HCHM!!, 23,32,51 
2140 SI=SIPS!SC[JOUEURI) 
2170 FOR M TO LENISI1 

2180 CALL HCHMd. 23M.ASCISE S»!SI,t, 11 

2190 NEIT I 

2200 N=0 

2210 SOTO 1490 

2220 N=l 

2230 CALL S0UKDI4, 1456,1) 

2240 GOTO 1490 

2250 K»=STR»!W1 

2260 CALL HCHMd, 16,32,41 

2270 FOR 1=1 TO LENIM) 

2280 CALL HCHMd, !4>I,ASC!SES»(«, 1,11 

2290 NEIT 1 

2300 IF W(0 THEN 2390 

2310 RETURN 

2320 S»=STR1ISC(J0UEURH 

2330 CAU HCHMd, 23, 32,41 

2340 FOR 1=1 TO LENISI1 

2330 CALL HCHAR!1.23'!,ASC!SEG*lS», 1,11 

2360 NEIT I 

2370 IF SCIJOIEURHO THEN 2390 

2380 RETURN 

2390 FDR DELAhl TO 100 

2400 NEIT DELA! 

7410 CALL CLEM 

2420 PRINT 'HELAS VOUS AVE' PERDU...* 

2430 PRINT :::*f!AIS VOUS AVE! SAUVEI*:: 

SCUOUEURK'HUHAINS*::: 

2440 FOR 00=1 TO 1000 

2450 NEIT 00 

1460 JOUEURsJDUEURM 

:»?0 IF JOQEURTJJ THEN 2490 

2480 GOTO 840 

2490 REN 

2500 CALL CLEAR 

2510 FOR !■] 10 JJ 

2520 PRINl muii* HUMINS:*;SC!II 

2530 PRINT :;:: 

2540 NEIT I 

1550 INPUT 'V0ULE7 VOUS fi£JOUER'*:AI 

2360 IF At='0UI" THEH 400 

2570 END 

2580 CALL SOUND 1 1, 1496.1) 

25W C^LL r£Y(0,l£,S) 

2600 IF S=0 THEN 2590 

2410 CALL S0UND!4,]454.I) 

2420 CALL [LEAR 

2630 RETlia 



suite de la page 17 



^ SPECTB^ 



feooa ir jmkc 



H OO TS 516 



ND XNKCVC < > 



;au? PPirjT 

siea next t 

513* i^ c i2i.s them ecec 

SUB LET /.13 LET * «3 
8115 fOB f • J TO 3 



5131 NEXT f 

•Siae PPrriT OT IB, 4," '■ 
»1*6 IF c (2) .3 THEN LET 
LET (L.CU1 LET BCaftC+S 

nt ot ? ,ao. »C 

TirJW tr C(«9 THEN LET Ct 
T BT 11,3; JNK 4,"0",aT 
, OT IS, 3, ,i O", OT 11,13, "p 
i_OT 15 S3, -P" 6lM 



m : 



sisa g& to 

516! __ 

5iee 



z-zz 



[NT AT 31.4. 
--■ GO T(5 BIOI 



''fi-,AT 3e, IS, 



MO INfEVtJ- 



5JB7 LET 

Kl«8 FOr. 

517B LET 

6178 PPIN 



let y-w-1 

, V , "O r, ,AT 



5 1 "*•}.■ POINT PT 14,4.;"P".A 

siaa fop r.ie to is 
eioa boke eeaei , t poke 

510* PRNDOMIZC UJS 6853C 

eiee ncxt i 

5ioe IF ciJi.O then let 



, «T 13 ,3, ■■Q" , AT IS, 3, '■ 
3, "P" , AT 13, 13, "P- , AT 

LET c X =» DIM C (•>( 
O 5300 



•5191 ' GO 

Sill PRinT AT 51,5, ■'' - : 

5198 FOR f-1 TO lO 

eaoa beep -aa,-so deep .oa.o 
EEP .OS , 50 
520r ne^r r 

53 IB PRINT OT 19 .3, "A", AT IS , 4. .: 
9**»_*C INKEVf ( >■•*■■ BNO I(JKCV|< 



5330 LET K«X'-iT LET v»u + l 

S3 35 PRINT AT y . y : "P" ; AT y +1 .'^ -1 



5360 LET 
5365 — 

53 7B fieXT / 

8378 PRINT AT 6, 10, " " 
5360 ir z (*, .0 THEN LET c (*) «1 
LET Cl»C'.*l: LET »C"»C*3000 PR I 
NT PT 3 , 23; » c 

5303>IF e *. "6 THEN PRINT INK 4. , PT 
11 , 3; "O" , AT 13 , 3, "O" , AT 13 , 3: "O 
■,AT 11, 13. "P' 1 , PT 13 13, "P"; AT 1 
S,13,"P- LET e--0 DIM e (6) 
53*0 OO TO 4000 

533S sen 

5395 ppinT OT S3 ,8,' "ft"", HT 10, 8;- 



5300 IF INKEVIo"j" AND INKEVIo 

-X- THEN OO T<5 543! 

84.00 LET - .90 LET v-6 

64.03 FOP ' -1 TO 7 

64.04. LET *"X-1- L.ET u»g*l 

3406 PRINT AT x,y; "o'.St X*l,y-1 

3406 NEXT I 

«*i« 1* C 191 -Z TMBN BEEP .O«,~10 

64 13 LET x-13 LET v»13 

6*1* FOP ; ■! TO 3 

5416 LET x«(.-l: LET W«W-1 

5416 PPINT AT *,v,"B*,ftT »< ♦ 1 , W ♦ l 



5435 IF 
LET U«C. 
NT AT 3,83, 



'■ ; AT 11 13; "P" 
5 , 13, "P" : LET 
5430 OO TO 40S< 

6*aa 



OT 13, 13; " 



5436 PRiNf RT , 51,7; : 'B' I ,AT 50,*; 



8437 ir INKEYIO"J" 
-Z- THEN (30 TO 5472 
5440 LET X-21; LET u 
S442 FOP t .1 TO 
3444 LET x -X -1 ; 
6446 PRINT AT V 



•^ntf 1 * 



rr 



-0 THEM 



BEEP 



OS, 



3452 POINT OT 16 , 13 ; " A M ; AT 18,13 

5464 FOA f-l» TO IB 

Q436 POKE 60651, t POKE 60963,12 

5456 RANDOMIZE USA 6 650' 

5460 NEXT f 

3465 IF C (61 .0 THEN LET C C6J '1, 
LET ct«C*.+l: LET S C -ft C *2000 Pftl 
NT OT 3 ,23; ft C 

3467 ir ct>8 THEN PPINT INK 4 ; OT 
11 , 3; -'O* 1 , AT 13 , 3, "O" i OT 16 , 3, "O 
" , AT 11 , 13, ■■p" ; AT 13 , 13; "A" > AT 1 
8,13;*'P' ■ LET C t -0 : Oil C(6t 

3466 00 TO 5000 

34 72 PRINT HT 21 ,7, " " 
S474 FOR f-1 TO 10 

3476 DEEP .02,-50. BEEP .02,0 O 

EEP .02,30 
3475 NEXT 

6008 REM S 



5003 RPIFJT OT . 11, INK 3, INUEP 
E 1. "DESCRIPT IOM" , IN'JCRSE 
6010 PRINT AT 3,0, FLASH 11 INK 
0, 'M", FLA3H 0,'' bO'JtOn ; < dco 

5«1» PAINT AT 5,0; FLA8M 1, INK 

0'-Z-; FLASH 0;" bO'JtOn d« giu 

6014PRINT AT 7,0, INK 4; "O" , IN 



6018 PRINT AT 11,0; INK 8; 

NK 0," "> lunnct vilint C 

6020 PRINT OT 13,0; "T -> C 



6034 PPIN 



1, "200 



1 p « r t 1 « '' 
6028>PAINT AT 18,0, INK 1,-300 O 
00 *> i. p»r X it'- 
602S PAINT AT 19 , 0; INK 1, " 1 000 



62Qa IF 
6205 LET 



INK 3. ■•ppug 
IF INKEYH" " 

S E'aee jeturn 

■ ..■■■!. . 

bd-8 THEN GO TO 6240 



8314 FOR t -bO TO STEP -30 

6216 PRINT RT 9,24; f 

S 2 = PAINT AT 3 ,23, ft c • ( bO - ri 

6226 DEEP .01,0 

6230 NEXT t 

S236 PAUSE 300 

6240 LET tc-l 

" >IF ftc > -; 



DEEP 



= " : 



THEN LET c r • c 

if ft c > •■eaeaa then let <l r -.■■ 

OKCf .09 , -30 

ir ftC>-100000a THEN LET cr- 
DEEP .05,-30 BEEP .05,-30 
P . 05 , -30 

ir Cf )fl THEN LET cr«g 

PRINT AT 16 , 30, e C 
PAUSE 100 



6600 MEM 



THEN OO TO 
AT 13 , 



OO TO 6820 

PRINT TLASH 1: l«r% j; m i i 
RMB-' ; AT 15 , 7; "OUEP" , PRUSK 2 

cl6 oo sue 11 

PAINT AT *1,3."UOUH«-WOUI 

ute *»fo/ni"r input r* 

IF rt-"0" OR rt-'-O 1- THEN OO 



f|-"n" 



Ot- 



R r ••■■N 1 " OR 

R r i < i -o- on 



> "N" THEN STOP 
6820 IF (> « < >o THEN OO TO 3000 
6323 OO OU6 7000. OO SUB 6200 
RUSE 200 

6330 LET cr-cr-1 CLS . PRINT 
16 ,30. Cr Q O TO l6O0 

7000 rem in 

7003 restBRc 7820 

7006 FOR r-1 TO 86 

7«1«P F.CAC K I BEEP .«B,x 

7013 NEXT f 

7 20 DATA 0,2,3,5,7,7,8,8,7,8, 

7038 DATO 7,7,5,10,12,12,10,7, 

,8, 7, «,7, 5, 3, 3 

7030 DATA 0,0,0,0,3,2,3,3,2,0, 

7038 DATA 7,7,7,7,7,7,7,7,3,3,; 
3,2,0,2,3 

7040 RETURN 



BATAILLE SOUS-MARINE 



Vous avez ete nomme commandant du sous-marin 
Tinsubmersible " et votre mission est de detruire les 5 
bateaux navigant dans votre zone ou est aussi installe 
votre quartier general(QG). 

J.Luc PENOT 
Mode d'emptoi: 

Entrez votre niveau de jeu (1 a 3) 
ENERGIE 
HOMMES 
TORPILLES 
MISSILES 

Vous dispose* de 8 commandes: 

Commande (A): Permet d'abandonner le SM. Cette commande est 
destined aux laches!!!. 
Comment: Appuyer sur A. 

Commande (B): Foumrt un bilan general du SM. 
Comment -Appuyer sur B 

Apparait: ENERGIE (restart). MISSILES {restants). TORPILLES 
(restantes). HOMMES (restants). 
Puis, taper sur une touche quelconque. 
Apparait:SONAR, REACTEUR, MACHINES. RADIOACT. 
Ceci correspond a I'etat du sonar. I'etat du reacteur. I'etat de I'ordi- 
nateur et du lance-torpilles confondus. Enfin, le taux de radioactivite 
du SM. Une valeur nulle indique un bon etat. Une valeur positive un 
ties bon etat. Une valeur negative, un mauvais etat des machines. 
Le taux de radioactivite est croissant et une vaJeur de 10 reduit le 
SM... 

Puis taper sur une touche quelconque. 

Commande (D): Permet le defacement du SM ainsi que le change- 
ment de profondeur. 
Comment: Appuyer sur D. 

Apparait la position actuelte en (x,y). (0.0) etart en haut a gauche. 
Puis DIRECTION: 

Repondre par les 4 fleches (sort 8 directions avec les diagonales). 
Apparait DISTANCE: 

Repondre par un nombre de cases entre et 9. 
Apparait la NOUVELLES POSITION, puis I'ENERGIE restant. le SM 
consommant 10 unites par case de replacement. 
Apparait PROFONDEUR: 

Donner une profondeur entre et 500. a + 500. le SM explose par 
la pression. apparait la NOUVELLE PROFONDEUR. 
Commande (S):Permet de visualiser la position du SM de son OG 
et des bateaux restarts a detruire dans la zone. 
Comment: Appuyer sur S. 
Commande Q:Permet te ravitaiilemert au OG: 
1 torp-te 

I missile. 

Energie (250 a 950 selon le niveau de jeu et la distance SM-QG). 

Hommes (3 a 12 selon le niveau de jeu et la distance SM-QG). 

Radioactivite diminuee de 1 unite. 

CommentiAppuyer sur Q. 

Condibons:etre a moins de 4 cases du QG. avoir une profondeur 

comprise entre et 10. 

Commande (R):Permet la reparation des machines lorsque celles-ci 

sort en panne. 

CommertiAppuyer sur R. 

Apparait le numero des machines. 

1. REACTEUR. 

2.0RDINATEUR 

3.SONAR 

4.LANCE TORPILLES 

Entrer te numero de la machine a reparer. 

Entrer la quantite d'energie a foumir a la reparation (50 unites 

d' energie pour r unite machine environ). 

Commande (T):Permet renvoi de torpilles sur les bateaux ennemis. 

Comment Appuyer sur T. 

Apparait DIRECTION: 

Entrer ce!le-ci par les 4 fleches. SOient 8 directions de tir. 

Apparait la visualisation de la torpiile sur un ecran du type du sonar, 

Condrtion:Profondeur entre et 20 

Commande (M):Permet renvoi de missiles sur les bateaux ennemis 

depuis n'importe quelle profondeur. 

Comment Appuyer sur M. 

Encfancher la remontee en surface par la touche centrale (F6). 

Stopper par la meme touche entre et 20 sinon le missile passera 

sous fe bateau a detruire et sera perdu. 

Apparait DIRECTION: 

Ertrer celle-ci par les 4 fleches soient 8 directions de tir. 

Le trajet du missile est visualise sur un ecran du type du sonar. 

Apres chaque utilisation d'une commande (sauf R et S). les bSteaux 

se deplacent ainsi que le OG. 

Si cehii-a est a portee de tir, les bateaux essaient de le detruire (de 

meme pour le SM). 

II peut apparaitre un taux de radiactivite qui peut dedmer une partie 
de ('equipage (si ce taux vaut 10. le SM explose...), 

Enfin. le SM est sort repare. soil endommage. 
Bonne chance' 



C^°£ 



07 



ELSENE*T:CLS:GQTOlS 



' PRIwT-vOICt LE I 



:GOTo: 



23 cls:print-lach£ !i| vous ave2",'ete p 
rohu au rakg de'i -balayeur 06 pont'lend 
27 ifeijhotmehcbint-oodinateur en panne 
•: goto 11 

26 CLS:PBlMT-enERGIE«*SEN, ■ MISSILES- ■ I HA 

2? PRINT-HOHMES-'fEOI 

30 A»*INKEY«; !FA«---THEN30 

31 H-EI2) -Ei4i :cls:print -sonar: -ie<3i, -8 
Eacteuri-seui 

32 print -machines: "in. "radioact. : >tml 
t-inkey»: ifa«-- "then33elsecls:gqt012 



00 



"REACTEUR £ 



INPUT "DISTANCE 10-91 : ■ i OS 



IPEO<BTHENPRIHTZ»! :GQT01 1 
PRINT!. REACTEUR 2.0RDIN.- 
02 PR1NT3. SONAR *. LANCE-TOR* 
NPUT-No MACHINE:"!! 
F1«W»I >*THEN101 
3 INPUT-Ol* EMRSIE-'IJ 

6 ipj ienthenprint- impossible. 
reste 'ien:got011 

■en-j:eiii«E(1i«j/23«*nd 
nt-reparation ach 
ov fop.i-itoio:beepi, umtut: 

: 14 KOTHENPR. I NT ■ LANCE- 
LOT 3THENPF1NT2BI : GOT 01 1 

22 IFZ>2OTHENPRINTZ3»:G0T01I 

23 21-2:e*--T0RPILLE-:Tl-4«O:TZ-0 

■ocothenpbint-plus OE -;o»;t>oroii 
23 to-to-i:gotoiso 
30 ifei4kotkenpriht-lance-t0r-pilles en 

PANNE. ..-"GOTO'l 

:0-raTHENPRlNTZ»i : GOTO 11 

32 s»--missile-:ti-io:t2-i:t3-T3'1 

■ HA-1 :PRI NT -MISSILE 'tT3l "PHST. ■ 

33 PR1NTREHONTEE EN SURFACE' 

36 PRINT "ENCLANCNEE PAR t]- 

37 F-STRIGI1>:IFF.0THEN137 

38 BEER20,2:Z2*Z/10:CLS 

39 FOR1-2TOOSTEP-Z2 

*0 L0CATEO.0:PRINT2I«t l:8EEPt,l 

IFSTRIGUt->-lTMENl43 
42 NCXT 



19 PRINTZIBJIINPUTZ 



r-Y-DS:G0T04* 



39 x-x-ds:goto44 
60 x-x-OT:y-y-DT: 

63 ife iii (otmenpr 



iii;. am jiNexi- 




120* Aft i-»(li-»T:Bi 

1208 IFAIIHOTHEHAII 

IFBllliOTMEHill 
I IFKII I31THCHBI 
M3 IFV-tTNENV-OrVI 



IFQ*- 



1122* 



•2OTHCN130 



PRINT-LE MISSILE E 
PRINT I i -METRES , EST-IPRINT" 
LE BATEAU"! 'ENNEM1. .. "IGOTOll 

pesT0REiiso:CLS:pRiNTZ2»i -: ■ 

F-STICKtOJ : IFF-0TNEN131 

i fori-itof:R£adxi,yi:next:cl! 



IAIRSET IA< I I , Bil : I :sE.' 



39 LOCATE*, 0:PRINT'C0ORD.-|X2ir2l 
.OCATE*, 1 : PR INT- 01 STANCE' I 01 

so preset 1*2, y2i : preset i x, r ) 

x2-x2.X1:y2-y2«y1:01-DI«1:E«-£H-10 
:Fx2<OORx2>310AY2<0ORr2>3iTHEN17a 



1222 IFSORIlAIIJ-Hi-z.il 
1340 

1224 NTEXTI 

1220 IFN<lTn£NN-l 
1230 IFN>30lKCNN-30 
1232 IFN< ITHEWN.l 
1234 IFNI3OTMENN-30 
123* IFEN1-0TM£N]J*0 
1230 H-E<ll'EI2l*E<3l'Ei 
12*0 IFM<-20tnEN1370 
12'2 IFRND1 I 1 . .3TH(NB*.e 
1244 IFRA'IOTMEN) 

Intcnse:Sm OETI 



1234 PRINT-REPARATION I 

9:beep20, i:beepo, tiMBCl 

123* E(1)-E(I1.J 



LIE EP 



UtWKI 



67 BEEPD1*10,I0 

68 IFT2-OTKN138 

*9 1FSTRIGH1-0THEN138 



FJ-OT«ENF1H--»0 

(tl-«(ll-4/J-«NDIll 

FFIIK--10TMCN200 



13O0 !FZ)20TH£N|40O:PR|NT-L[ BH A t 

ERONNE'I 

1302 IFRN0IIM.73INEN13O1 

1304 F0Rt-lT04:Elt)-E(t>' 

130* PRINT*OOHHA0CS IH»0»I«1T5- :OOT01£I .* 

1308 PRIN1-REPARATION INPOSSI .-,-... VOUS 

AVEZ COULE- :ENO 
13lO PRINT-LE OG A ETC EPERONNE'I 
1312 O--HOOT02O0 
1320 IFZ>-ZOorH£N1222eLSEPRtN1-LE Sn EST 






• 3T/73:Ntx: 



79 BEEP3, 1:L0CATE4,I:PRINT-ETAT Gl'ISItj) 

so PRESETut, y> :fori-itoioo:next 

81 A»-IN*-EY«! JFA»< >"THENCLS:OOTOll 

82 PSET IX, Yl :8£EPa, i : FORI - 1TO3O0: NEXT: GO 
T08O 

?3 IFO<OTHEN^RINT-00 OE TPU I T . . . " i GOTO! I 

8* OI-SOP1 IX-MI "2» IY-NI "21 

U IPOl 4IHEHPRINT-SH TROP LOIN OU 0O':G 



> LOCATE*. 2:» 



zoz gii>-a<i>:hu>-biii : 
204 B»*BA-i:fopI-1ToBa 



-BAtEAU OETI 



107 



99 lFn2-Mw£NPPIf 
OOTt 



LE 06 A ETE VICE., 



3' if2)jotmenprintz;»:gotoi i 

90 E^*CH>470'9*3CO/<01>! I ;EO-E0-n/0'*. 

|>ll:T0«TO* i: ma-ma- i: pa-pa- i :'.-i 

»; :-' rr. :»0O(0Tme«€n» 1300-0 

93 :«', i?- :•>'-£'. EG-2;-3*o 

■ ■■■■■■ 



zob print-plus be bateau...* 

20r print-vous avez gaom6 ■-'■:end 

047 cls:definta-2 

,144 ppinttabc3i i ■»•• niveau *••' 

046 print-1. oebutanf, -2. ihit1i'.*3. 

(PEOlMEnTE* J 

048 F0RI-1T010O-BEEPI, i:«Ext:ci.S 

030 INPUT-VOTPE CHOI' -- - I5 

032 IFa'IOR0>3THENI030 

os* fo»i-iootoisiep-i:beepi. irr-r ri«-t 

038 PP1NT-APPUYEP SUR 2 POU« , 

e toutes tes-i-coMMAf.ces su ;-,..- 

1040 FC*l"IiC2000:NE^T:CLS:ft0T0»& 



1340 PRINfLE BG EST A PORTEC* 

1142 PRtNT-O'UN NAVIRE ENNCNI* 

1344 PRINT-TIB INTENSE... - 

1344 IFPNDI 1 > J.4THEN1224 

13*8 PRINT'LE OO EST DE1RUI'- 

1330 0--II00T01224 

1340 PRINT-PLUS D'ENEBOIi . . . " 

13*2 PRINT-.. .LE SN COULE-:EN0 

1370 PRINT-LE SM EST tROP- 

1372 PRINT-ENDONMAOC 'IftOtOlI*! 

13-.0 E0-E9-PA 

1382 IFRA-0TMENI248 

138* FPINt -APPAR! TION RAOIOACT- 

139* IFPA.1T-ENI390 

'-,.: ■IBB1I ':0'H MrjRi-j^GOTO. : 

'.'■\rH MO"*"* EST MC« ' . - 



ORDINATE UR DEBORD FX70 2P 



Ce programme vous fournira sur la route, toutes les 
moyennes de vitesse, de consommation et autres aux- 
quelles vous reviez depuis si longtemps, sans jamais 
oser les demander! 

E.DUJARDIN 
Mode d'emptoi: 

It sutfit d'entrer au depart, a I'arret et au redemarrage tous les ren- 
sergrvemerts demandes (ils ne sort pas nombreux). 
Les heures sort a introduire et affichees sous la forme HH MM. A 
chaque arret, le programme vous toumit loutes les moyennes.Ces 
resultals sort reaffichables il sutfrt pour cela de choisir I'option ade- 
quate. S< vous desirez ootenir les moyennes pendant la route, utili- 
sez I'option ARRET sans la taire survre de I'oplran POURSUITE. 
Le programme tient compte du changemert de jour et de leventuel 
passage du compteur de 99999 a kilometres (si votre compteur 
est limite a plus ou moins de 100.0XX) km changez la ligne 55). 
L'unique limitation est d'utiliser I'option ARRET ou POURSUITE au 
rnoins une to«s toutes les 24 Heures et tous les 100.000 km, ou 
alons dlncremerter les variables J et O (nombre de jours et nom- 
brea de lours de compteur). 

Enfin, si vous utJIisez un autre programme ertre deux appels de 
celui-ci (i laisse en eftet plus de 700 pas disponiWes), n'oubiiez pas 
de sauver auparavart les variables D a P sur cassette. 



5 MIT U:PJT "P8 


51 IHP "LITRES M 


98 PRT "HOY. SS PtR 


119 "SS-PRSH:C EH H 






ESSE2 WE TOUCH 


RESERVOIR ".8 


»ETS:":F/H;"K« 


H.HIWC EH H1H0 


-.0 




E'.'SELOH VOTRE 


55 IF PKPlO=0*l:fl= 


/HVCWSOIWfflT 


TES 


,0 




CHOIX:" 


IH0<1888e8 


IOH:"; 


128 C=FfflC C«188tlH 


' 


A 


I! FOR Z=l TO 3:6S 


S8 6SB 12l:I=C:5=( 


95 PRT (L-Bi/FHee 


T c*ee:iF c<o:J 


Q 


\V 


B ]58»18»Z:P8T 


C-lt)/68:H=S-H/6 


;• l MK I88":S 


=M 





N h 1 


t 


8:F=fl-K 


ET H:EHD 


138 tBC:C=t»1448»J: 


o 


A^\ 


2S M=1EY:IF flt=" 


78 PRT "CILCHETRES 


99 "tmDEPURT"" 


RET 




fl\ 


;»EKT Z:60T0 18 


I'iF.TBK:'!! 


188 VPC : IHP 'HEURE 


149 "SS-PR6HS:PRESE 


\\ ) 


38 WIT 38: IF Bl=" 
If THEH 186 


HT e»FWC S*.6; 
" H" 


-.C.TR m CPT 
EUR ',1,1. K 


HTHT10H 
158 !="[>: DEPP.RT": RE 


IT7TTT\V~- 


^~nr~ — 


V®\oW — 




31 IF A!=V TKN 


75 PUT 'IPS H ROW. 


RESERVOIR'.l 


T 




78 


ER:";IHT H»FR«C 


185 6SB 1 28: IK : EM 


1E8 8=-R: HRRET-tBET 




fr — — r 


48 IF M=f THEH 


H».6!" H" 








118 
49 SOTO 58:" 


88 PRT "ARRETS:"! I 
HT (H/MHFJflC 


189 """PO0RS1JITE" 
118 IHP "HEURE ",Ci 


178 l="R:PE8FF. MS 
HOY.":RET 










«*«fiM!ET**** 


(H/S8H.6!* H* 
85 PRT "Wi. HVEC 


"LITRES EH * ". 
E 


188 |:"P: POURSUITE" 
:RET 


jff7J^i^CF> 




58 SET F2i!HP "HEU 






FE ■,C,"IOIS Ml 


RRRETS:"lF/6;" 


115 L=L»E:SSB 128:H 


9999 " 






CPTEVR ",« 


ffl/H" 


*C-l:E» 









UJ 

O 

o 
o 

Q 

LU 




1 nennomatiaire des programmes informatiques 



LALEVEE ENLEVE 
LE GROS LOT! 



Ca y est. le jury a rendu son ver- 
dict, preside par Georges LE- 
CLERE, lournaliste scientifique 
d'ANTENNE 2.les specialties 
d'ARIOLA. d'HACHETTE. d'HEB- 
DOGICIEL. dULEL, de la 
REGLE a CALCUL, de SIDEG et 
de VIFI-NATHAN ont choisi le 
programme 'ALPHABET FLASH" 
de Jean-Pierre LALEVEE sur 
COMMODORE 64. C'est done lui. 
I'heureux homme, qui emporte 
I'APPLE lie offert par SHIFT EDI- 
TIONS, le CANON X07 offert par 
CANON FRANCE, le COMMO- 
DORE 64 offert par PROCEP. 
t'ORIC ATMOS offert par ASN, 
i'agenda electronique CASIO PF 
3000 offert par les Etablisse- 
ments NOBLET. !e Texas Tl 
99 4A offert par la REGLE a CAL- 
CUL. I'impnmante EPSON et 
labonnement a vie offerls par 
HEBDOGICIEL, tes deux ordina- 
teurs de poche PC 1245 et PC 
1500 offerts par SHARP 
FRANCE, les 5 logiciels offerts 
par VIFI-NATHAN et la petite 
montagne de logiciels divers: 10 
pour Commodore, 10 pour Texas 
et toute la gamme des boites 
jaunes. les HEBDOGICIEL 
SOFTWARE. Jean-Pierre, qui est 



un habitue des envois de pro- 
grammes a I'HEBDO, ne va sure- 
ment pas s'ennuyer. en plus de 
1'apprentissage rapide de la 
frappe au clavier avec les deux 
pieds. il va lui falloir se faire gref- 
fer deux paires de bras supple- 
mentaires pour pouvoir taper su' 
tous ses ordinateurs a la fois ! Et 
si a la rentree, il est encore en 
manque, il pourra se precipiter 
chez son marchand de logiciels 
prefere pour acheter son propre 
logiciel ainsi que celui de ses 
petits copains de 1'hebdo qui ont 
aussi gagne la semaine derniere. 
Un ordinateur pa va. huil ordina- 
teurs: etc ■ 



EDITO 



Encore du nouveau cetle se- 
maine: vous pouvez acheter des 
Thomson T07 en passant par 
I'Hebdo. Regardez les prix. ils 
sont pas tristes ! Nous vous pre- 
parons encore quelques petites 
surprises: un numero quadruple 
pour les vacances, plus de 
soixante pages grand format de 
programmes ! L edilion des pro- 



LES CONCOURS PERMANENTS : 

10 OOO francs de prix au meilieur programme CHAOUE MOIS 
1 voyage en Californie pour le meilieur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



grammes de Le Breton (le vam- 
pire fou !) qui a ecrit des pro- 
grammes pour Apple et 
Commodore que meme les ame- 
ricains nous envient ! L'ouverture 
d'ici a la fin de I'annee dune bou- 
tique a Paris oil vous pourrez 
venir nous voir et . des la rentree, 
un paquet de nouveaux logiciels 
"Boites jaunes" inedits Et enfin le 
plus gros-genial-extra-fabuleux 
recueil de programmes que la 
terre ait jamais porte! 

Gerard CECCALDI 

^ARTEZ EN 
*NCES 
AVEC UN T07 



Nous ne voulons pas nous trans- 
former en vendeur de materiel, 
pas encore ! Pourtant une oppor- 
tunity nous permet de faire une 
offre exceptionnelle aux lecteurs 
d'HEBDOGICIEL: un ordinaleur 
THOMSON T07 avec sa cartou- 
che de Basic et la boite jaune de 
12 programmes Hebdogiciel Soft- 
ware. C'est quelque chose qui 
coute dans les 2500 a 3000 
francs selon les boutiques, (meme 
les "grosses", suivez mon re- 
gard-.), avec "HEBDOGICIEL' 
vous aurez' le tout pour 2000 
francs, et c'est le facteur qui vous 
apportera ca chez vous. en re- 
commande pour pas que ca se 
perde. Envoyez vos sous avec un 
pelit mot pour nous dire oil il laut 
vous le livrer. et grouiliez-vous 
nous n'en avons pas beaucoup 
de disponibles. Les premiers arri- 
ves seront les seuls servis 
(comptez une huitame de jours 
pour la livraison), les autres n'au- 
ront rien el en plus on leur rendra 
leur cheque, gmak-gniak ! ■ 



TEMPLE sur CANON X-07 



Les fleches — • el ' vonl vous etre mdispensables pour venir a boul de ce 
jeu ou foisonnent des lianes et des monstres. Voire vie ne tient qua un HI 
— permet d'avancer el d'attraper les lianes. 
* permet de sauter les obstacles. 

Patrice LEON 



r 



131 



12 G0SUB7000: 

13 F0NT«M30: 

14 FOHT4U3I 
12* 

PONT* < 133 

F0Nt«l|33 









:oosu84ooo 



132.13?, 133, 13?, 13 ?ooo oosuS400o:i 

■UMOBOII 
>. 0,0, 732, 132, 13?, 2 2003 f 

EEPi?,l:»EEP20, 1 
ISU17O0O ?02O NCXTG 

0,24,24,740, IBB, 49, r« 2023 0OSUB4OOO:Y- 

o:beepi?, i 

0,1b, lb, 60,744 



?,7B,?fl,74, I 
i, l?8,*4,40, t 



48,700 703O RETURN 

?aoo ifx-isorx. 

?303 FowM-noc: ifxim 
??,3*. oosunassa 

2307 NFXIHrREtllHN 
,13a,? 30O0 6EEP23, l:00suB4 



rm iiihiwii innu 



301< 



0,4, 8. 00, 60.778, 274,3 3020 oobub4ot>o:beiubn 

330O eorh-itoc 

0. 197,700, 144,0*. ISA, 3307 LOCATE X1M1, 
3304 XIH1-X1HI.1 I 

!«?, 40, 770, 44. 237. 137 OS 

3506 IFYiMi-lTMFf 

96, »», 64, 120, «A, 46,40 3307 LOCATE XIMI, 

»I-'*0,32,36.60,4R,74 1NTCHRBI L341 I El SEPR INTCM" 
03S10 



I 3310 HEX: 



f 



7TM6M00SUB2O0O 

ro?oooo 



ITHKNLOCATI XiHl.YiMliPR 

Suite page 12 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P .COMMODORE 64 ET VIC 20 . 
DRAGON . HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET 
ATMOS . SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07. 

HIPPOREBUS trouvez I expression qui se cache dans la B D de I'hippocampe Decompose en Irois syllabes dans les Irois premieres cases, le ■'lour 1 a evidemmcnt un rannor! avec rmformatiauo 
(solulion en page interieure) ' 




\^ II W\j29juin 1984 J 



Allemagne 3.50 DM - Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs - 



CATAPULTE 



Ce programme est un jeu d'adresse qui consiste a de- 
placer une catapulte et a tirer sur un chateau pour at- 
teindre des gardes, Lorsqu'un nombre suffisant de 
gardes est atteint en (in de partie (apres 20 coups) un 
pont levis se baisse symbolisant la prise du chateau et 
la victoire du joueur. 

Paul ADORNO 

En <J6but d'execution, les regies do deplacement sont presentees. 
tro«s touches >. < et 3 servant a commander la catapulte Lors des 
parties suivantes la regie n'apparait pas. H.suflH de reinitialiser pour 
les (aire apparaftre 

Le joueur selectionne ensuite la difficult^, qui est en tail en tonction 
du nombre de gardes a atteindre: (niveau 1 = 4 gardes, niveau 2 = 
6 gardes, niveau 3 = 8 gardes). Ce nombre peut-etre modifie au fur 
et a mesure de la progression du joueur (simple moditicalion de 3 
chtffres dans le programme). Le jeu commence a ce moment. 
La principale ditficulte tient du tait que, au moment du tir, deux 
gardes sur 3 se baissent et ne peuvent etre atteints. Ceci est deter- 
mine" de manrere aleatoire. De plus, des qu'un garde est touche, 
son rempiacant ne se dresse que lorsqu'un autre garde a ete lou- 
che. II ne reste done en fait, que deux gardes qui peuvent se bais- 
ser en meme temps, (car 2 gardes sur 3 se baissent), 
Le score est affiche en haut de I'ecran ainsi que le nombre de tirs. 
& le nombre de gardes atteints est suffisant, le pont levis se baisse 
sur un air de trompettes saluant la victoire. 

Derniere chose, si on avance ou si on recule trop, la catapulte. 
tombe bien 6videmment dans le fosse (avec un grand fracas). 
Record personnel: 1 1 gardes, qui dit mieux ? 



"CO 




: ClS:SCREEN9.' 



-PRESENTATION- 



3 L0C«T£l9,8.8:C0LQPJ,4:flTTRBl,l 
* PRlNT-CfiTKPULTE •tMTTP.BB.e: LOCATES, 20..8 
,4IPRINT*CRCAVI0NI PAUL -D0P.KQ' 

5 r.LE-.»,,23:L-2:0-8:&INi«tl)«ftlltYOI)iX- 

6 OO*--O3LlD0F'A-:531-*O4L!nlbSIb-:BEf='O 
5LlBtSO-!fA»--05LlFaSI-D-:C0Ji-01LlD0SIO2 
SI03SI04S103SI* 

7 rORI'lTC-aeiPLAYi/O* 

3 HEXTl:rORI-lT05:PLAYSI* 
9 NEXTiJrOF-I = ITr)5:PLA'rC'0» 
19 MEXTI:FOPI-lTO20:PLArPEI 

11 NEXTI:F0PI*.lT029:PLavD0* 

12 NEXTI:FORI"lTOll!PLAYFA*:Z=X/180!X':iJ 
-X*» 

14 V»ItlTi:saPa-;"2>«109':PLf'YFQj:Y<.I) = 16 

4-k! 

15 X-X»2e!»EXTI:Din N»< 11 > : NX 1 >= - 05Ll$I 
-ltl*C2)-*031.]SIb-:M*<3> = -05LlLfl-:M*<4> = - 
D9LlLAb a )H*<S>--0SLlS0*:N*(6>-'05LlS0b*i 
N«<7>"*03Lirfi-:»l«(S.- = *D3LlKI-:HIf9f = ' , 05L 
inlb-:X*'19>-"05LlPE-:>«*< 11 >='05LlREb' 

1C CL$:C;0S'je633iC0T04ee' 

LAMCER DU BOULET 

17 COL0R4, 4:L0CATEL.22,8:PPlHTCHRf<14i;C 
Hft*(127>!L0CATEL*l,2a.8:COLORe.4:PPiHTCH 
R«<184j:PRIMTCHR*':i5> 

EB P-L»3:PLAV05Li;i04iI03?I023l01SJD0- 

23 F0RI-IT0K 

38 PSETWIj + P.C : ,4 

35 PSET<X<I>+1»P,Y<I>>,4 

. . :i)-t>,4 

45 PSET'/' I .'-1 *p,Y< I >-l>,4 
S3 PSET<X(I*l>+P,Y<I*i)>,7 ■ 
33 PSET<X<I*I>-*l*P,Y<I*l7),7 
60 PSETCX<I'»1>*P,Y<I*1>-1>,7 
65 P3ET(X<I*1)*I*P,Y<1*1,-1>.7 
78 MEXTIiPS£TO«I>*P,Y<m,6SPSET<X< I>+P 
»6iPSET(XCI>*P,Y<I>-l>,6ip8£T<X( 



I)*l*P,YCI>-l),6:LQC*TE29. 13:C0L0R6,4:PR 

INT- -!L0CATE35 f 13=PRINT* * 

75 J=J*[:L0CATE3-5,e:ATTPEI, I : COLOR 1,4: P 

RIHTJ:ATTR8@,9 

85 IFL»6flNDC=l&NDQOlTHENQ=i:PLfiYC0JJG0T 

0388 

98 IFL = i4ANDG = 2flN00-,/2THEN0=2:PL0YC0»:C0 
T0318 

57 IFL = 13A«&C = 0ANrjO',/3THENCi=3:PLAYCOi:GO 
T0338 

99 L0CATEL*1,28,8:PRINT- - : [FJ=£0THENGOT 
O730ELSEGOTO650 

99 • POSITION CATAPULTE 

108 PRINTCHRK14) 

118 L0CATEL,22,e:COL0R8.4 

128 PRiNTCHRirteucHPfa n ;;chri<47i;chr 

»(63) 

142 LOCATEL*2,2I,0:PRINTCHP*(53> 

168 IFL=19THEHG0T0278 

179 IFL=0THENGOTO28B 

138 ' C0NTR0LE 

ARRIVEE DU 80ULET 

198 IFL=10RL»2THENN=19:G0T02B8 

195 IFL=18OPL=11THENN=?:COTO200 

196 IFL=I2THENN-3:COTO200 

198 K-9* DEPLACEMENT 

TIR 

£39 H-PN[>:A*«INKEY* 

210 IFA*=-. "THENL-L*! :G0TO2S8 

220 IFAl=-,-THENL=L-l JCOTO260 

239 IFA*="5"THEH GOTO370 

248 G0T0198 

£50 L0CATEL-1.22-9:C0L0P4,4:PR1NTCHPI(12 

7> 

252 L0CATEL-1,£1,9=PRINTCHR*(127) 

255 GOTO100 

269 L0CATEL*4 / 22.8:C0L0R4,4:PR1NTCHR*'12 

7) 

262 LOCATEL'3.21 : PPI NTCHRK 1 27 > 

£65 GOTO108 ' — CHUTE 



- ---£'E LA CATAPULT! 

270 FQPT-1TOI09 

271 HEKTT 

■:CHPi< i£7.;rHS f j£- ijCHftl 127 i 

.£I.9!PRINTCHPI< 127. 

£73 LOtATE22,23.0!CQLQP0.4:PBi*T:H&! IZt 

274 PLfl '01L5« ISIbLAUS ■■■■ : -U'-i-Zt- 

[•ODOt'ODOt'Ot'Ot-Ot'ODOOOt'O&O&OPPPPPPPl'PP* 
£73 PP1NTCHPK15HC0TQ2 
£89 rOPt>ITO100 
£31 NEXTT 

so. L'j':«:Eo.i;.o::::-L'jtJ.j:ppp < 7':MBt. ::-■ 
i'tHFi- i£- TCHPi' 1" iLH'i-i;- !lOC«-e;.£ 

liPPINTCHPC 127) 

233 COL0R9.4:LOCaTE1.£7.0:— INTCHRI .; r 

£":J H- ■0[L5SI:lbL-L«b. : 0;0bF"t1I.lIc. = ^ = Et. 

i _ j['00ODODOOOPPPPPPPPPP* 
£35 printchr«c15>!g0t02 ' le garde 

EST irjucHE 

380 L0CATE£6, I0,0:GOTO349 
310 L0CATE32,9.9!CrjT034P 

330 L0CATE38, 10, 0: G0T0346' AFFICHACE 

Dli SCO p E 

340 COLOR0.4!PPINT- * : LOCATEL'l . £0. 0: PR1 
NT- •: ATTPB1. 1 : COLOR 1, 4: LOCATE12. 5. 0: 5 = S 
•l:PRINTS!ATTRB0,e 
350 IFJ=£0TH£K730 

360 GOTO650 ' LES 2 GARDES 

SE BAISSENT 

370 PRINTCHP*<1S>:COLOP7,4: IFH<= . 33THEN3 

39 ELSEIFH)=.66THEN390 

375 LOCATE26,10.0:PRINT- - : L0CATE26. 1 ! . 

:PRINTGR*<0>:LOCATE3£, 9,0: PRINT" -:L0CAT 

E32. 10,0:PRINTGR*'0.:G=9:GOTO17 

330 L0CATE32.9,9:PRINT- ■ : L0CATE32. 1 0, 0: 

PRINTCPt(0*:LOCATE38,18.a:PRINT- "ILOCAT 

E38.II,0:PRINTGR*(0):G=1!GOTO17 

390 LOCATE38.10.0SPRINT- - -.L0CATE3S. 1 1 . 8 

:PRINTCR*(0):LOCATE26. 18.0: PRINT' -:L0CA 

TE26, ll,0:PRINTGR*<9f:G=2:COTO17 

399 ' DESSIN DU 

DECOR 

490 BOXF<292,96>-<2£0, 184), 6 

418 B0XF<298,?6>-(316, 184>,6 

428 B0XF<258,93>-(268.184>,6 

425 80XF<2£1,11£>-<297,134;,6 

430 L0CATE25, 1 1 , 0: COLOP0. 6: PP INT ■ ■ 

440 L0CATE£7, 11,0:PPINT* - 

450 L0CATE31,18,9:PRINT- - 

460 L0CAT£33,19,9:PPINT- ■ 

478 L0CATE37,11,9:PRINT- - 

480 L0CATE39,11.8:PPINT- ■ 

490 L0CATE28, 13,0:PRINT- " 

500 LOCATE30.13,9!PRINT- ■ 

518 L0CATE32,13,9:PRIKT- - 

528 L0CATE34,13-9:PRlNT" ■ 

538 L0CATE36. Ki.BiPPINT* " 
548 B0XF^ B .12£:-(317,288).6 
545 BQA^Bajf .--. 174. !?■?■. 3 

-(317,199), 3 

SELECTION 

— NIVEAU DE DIFFICULTE 

539 L0CATE5. £,0: COLOR!, 6: PRINT -j«ts- 
598 LOCATEl£,£,0:PRINT-points- 

609 L0CATE22,£,9:PRINT-ni«t»u de'tLOCATE 

22,4,0:PRINT-difficuUe':LDCATE£2,6:PRIN 

T'<1,2 ou 3>":ND*-INKEYI 

605 IFND*='l'THENF=4:C0TO625 

618 IFND*=-£'THENF=6:C0TO625 

615 IFND«-'3-THENF.8:G0T0625 

628 GOT0689 

625 LOCATE29,£,0:PRINTNDI:' -:LOCATE£0,4 
,0:PRINT- P our issieger I«- :L0CATE29. 6,8! 
PRINT-ch»teau. il f»uf:L0CATE28,8r 0:PRI 
NT*atteindr*-;Fi "gardes" 

626 F0RT=IT0599 

627 NEXTT:G0T0639 ' REGLE 

DU JE y 

6£3 ATTRB1.0:LOCATE2, 12, 8: C0L0R3, 0: PR INT 
">*:C0L0RI. 4: LOCATES, 12. 0: PRINT* f*i t au* 

630 FORT-1TO100 

631 NEXTT:L0C0TE2,16,e:C0L0P3,8:PRINT-<- 
: C0L0R1. 4: LOCATES, 16,0: PRINT- f»it r«cul« 

632 FORT-1TO100 

633 NEXTT: L0CATE2, £0.0: COLOR3,0: PRINT" - ' 
:COLORU4tLOCAT£e,£O,0!PRINT'l*nC* 1* t)0 
Bill' 

634 FOPT-ITO300: ATTR8B.9 

638 NEXTT:C0L0P9.4:CLS:RETURN 

639 FOPT-4TO8:LOCATE20,T,0:COLOP4,4!PPIN 
TSPC(19)!NEXTT 

649 DEFGRIf 91-12, 38. 127,255, 127,30, !£. 1£ 



645 DEFCRK W3»,6£.62.SJ.62.62,t£,S? 
638 COLOR7,4!|FO.lT*J£n:oT06*3ELSEIF»»£T« 
EMC0T067atLSEfrO>3TMENC0TO69t 

653 * 



668 LOCATE26. ie.e:PPINTGRI'»):L: 

1.8:PRINTGRt< 1 ■: LOCATE 3£, »,»lPR|JTTCJt! a . 

:L0CAI£32. 10, 0: PRIKTGRK I .: LOCATE 33. 19,« 

:PRINTCR*(8>:lOCATE33, 1 1, •tPfflMTCDI : ■ ■*, 

0T019B 

665 LOCATE32.9,8:PPINTGPI' l>U0CA 

.0:PeiNTCPf'l 'J LOCATE 33, 10, 9: PP IN" ;t t a. 

:L0CATE38.I 1 , 0: PP I NTGP« • 1 XG0TO1W 

679 L0«TE3e,19.«tPPINTGP«.-A.:L: ■ 

1. 8:PRINTGRI'l>:LOCATE26. 19. 9:PP ;--.-< | 

•JL0CATE26, ]1.0:PPINTCP*<l):GOTOie» 
638 LOCATE26. 1 9. 0: PR INTCP«'9> : LOT- :•: - - . I 
l,9:PPINTGRt< 1 •iL0CATE32.?.9:PP;>i;',ti » 
JL0CATE32. 18,0:PPINTCRIf 1 >:COTOt«e 
739 LOCAT£L.2£,0:COLOR«.4:pPl¥T:-:i m I 
CMPI160'JCHRia5-:IF % ■ 'T TMEKGOTO800 

735 ■--- 



749 L0CATE4, 10,0: COL 0R6. UATTRBl, II PR INT 
■PRISE DU * 

750 L0CATE5. 14, 9: PP I NT - CHATEAU" 

768 LOCATES, 13. 0:PRINT"RATEE" 

779 FORT-ITO1809 

789 NEXTT: ATTRB8. e : ClS: SC'EE"? , ■: . 
=0:S«0: J-0:GOTO489 

790 ' LE PONT-LEVTS- 

- t BAISS1 

389 DEFGR*(3>-0.96,?6,4S.5r.S?. ;■.-? 

385 DErcRI<4>-6, 71,3.67,9.64,0.64 

310 DEFCPi(5>=8.9,24,£4, 12, 14,6.3 

815 DEFGR*C6>-0.64,9.64,8,64,3.64 

8£8 DEFGRi<7>'3. 1,9.0.0.9,8,0 

325 DEFGR»<8>=8, 192. I £S. 19£. 96, ?6. 4S. a? 

839 DEFCRIO 1-24.24. is. n. c .. -. :.. ] 

335 DEFGRt<18>-8.0,O.9, 12. 13, 7j 9 

340 DEFGR*<11>«0.0,0.0.0,0,19£.£40 

345 DEFGRta2><9,3,0.S,9,3.9,8 

358 DEFGR*<13>*124,31.7. 1.0.9,9.9 

855 DEFGR*' 1 14>*9.8, 32.56.62. 15,3.0 

860 DEFCR*! 15)-9,8,0.S.9. 1 36.224. £4; 

862 DEFCR*(]61-62. 15,3,9.9.0.0,0 

365 DEFCR* < 171-9, 1 23. i^4 . S*$. 62. 13. 7. 1 

379 DEFCR* < 131-8.63. 63.6 3,0, 32.0, ?£ 

875 DEFGR*<l?!-0.£5T.£55.255.0.0,e,9 

339 DEFGR*<29>-9.32.8.32.0.32.0.32 

335 DEFGR*<21 1-8,0. 0.9. 0.255. £55, 235 

399 DEFGRK221-0, 32. 0.32. 0.235. 255,233 

395 COLORS, 4 

909 L0CATE24. 1 S. 9: PPI NTGR* '.3 l : L0CATE£4, J 
9.B:PRINTGR*<4) 

985 LOCATE23.£9,9:PP1NTCRI(5):lOCATE24,£ 
8.0:pRINTGRt<61 

910 LOCATE23.21.0:PRINTCP*'7.:LOCATE£4,£ 
i,B:PRINTCR*<8) 

913 L0CATE£4,2£,8:PRINTGR*<9) 

9£8 FORT*1TO20:PLAYDO* 

922 NEXTT:F0RT-1T029:PLAYSI* 

925 NEXTT:FORT-lTO20:PLAYDO* 

930 NEXTT:F0RT-ITO28:PLAYR£* 

935 NEXTT:FORT-ITO40:PLAYDO* 

948 NEXTT:F0RI-18T022 

945 L0CATE23.I,9:PRINT" * 

958 NEXT I 

968 L0CATE23, 18, 8i PPINTCR*< I > :L0CATE24, 

18,8:PRINTGRf(ll) 

963 L0CATE23. 19. 8= PPINTGRK 1 £ > : L0CAT££4, 

I9,8:PRINTGR*(I3) 

979 L0CAT£23.20,8:PR[NTCP*<l£i:L0CATE£2, 

21,8tPRINTGR*<l41 

975 LOCATE£3,2I,0:PRINTCP*CI51:LOCATE£3. 

££,0:PRINTCR*<16) 

988 LOCATE£4,£2.0:PPINTCRHt7> 

982 F0RT-1T0490 

984 NEXTT 

985 F0PI-18T022 

998 LOCATE22,I,0:PPINT- 

995 NEXT I 

1000 L0CATE23, 19.0:PRINTCP*(18>iL0CATE24 

, I9,0:PRINTGR*(19) 

1905 L0CATE23.£O.0:PRINTGR«i2O>:lOC«T££3 

,21,9:PRINTGRS<20> 

1018 LOCATE22,£2,0!PPINTGRH2I >:L0CaTE23 

. 22. 0:PRINTGR*( 22 i:L0CATE24. 22, OiPPlNTCP 

*(£1) 

1028 ATTRBI. HC0LOP1.6 

1930 L0CAT£4,ie.6:PPINT-PPIS£ DU" 

1040 LOCATE*. 14, 01PRINT-CHATEAU* 

1058 LOCATE4,18,0'PRtNT"REUSSIE- 

1060 rORT-lTO1500 

1070 NEXTTIATTRe8.0iCLS!SCPEENO,4.2:L-2! 

O^8:S-8:J'0IGOTO499 I 



CAVALIER 



II s'agit dans ce jeu de deplacer un cavalier sur un 
echiquier de (agon d ce qu'il passe sur toutes les 
cases de celui-ci, mais il ne peut y passer qu'une fois. 
II gagne si tout I'echiquier est noirci. Le cavalier se de- 
place, bien entendu. comme aux echecs. 

Christophe REULIER. 
Mode d'emploi: 

Pour jouer. il faut entrer les coordonnees de la case d'arrivee en 
entrant la ligne et la colonne. Ex.:A1.05, puis RETURN, Le pro- 
gramme verifie si ce que vous avez tape est correct, II donne aussi 
le numero du coup que vous files en train de |ouer (NO) et le nom- 
bre de coups favorables (NC). 



3 PPIKT'TJO CflVflUER" 

PfiTIENftl-.. " 
Z. P0KE3687B;"re 

le oosuBsee-ijOsuB/ee 

11 REM rjftrllEP 

\Z CLR 

13 K<1;"96 CC2j«S43 K(3^-4( 

28 PP.IirrrW POKESty/S.y 

33 ff-lnT-tWa 

49 FrjPS=iTQ4 

50 FORI-1T02 PRINT" 
60 FORJ-1T02 PRINT' 
70 H€/T 




302 OOSUB^00 

303 TH-Tfl-1 

387 F0RS=8t55T05163 POKES, 32 -NEXT 

310 FORS»1TO1080 HEXT-GOTO100 

400 U-8 

403 FDRM-IT04 

410 IFPEEK<Dl+K(M)>-40RPEEK<Dl»Kt:rO)"5THenu=U-l 

413 IFPEEKCDl-XU1))-40RPEEK<DI-K<ri))»5TMEHIJ-U-I 

420 HEX 7 

450 IFU-8THEHOQSUB300 PR I H f " W O JIUWU IBWa— «W»M 



38 PRINT" 

96 PRINT "Mm DIWI II 111 I *W I <WI I Ml III 

93 PRINT"* fi B C D E F H":T"0 

93 REM BQUCLE 
100 INPUT"IMM 

104 PRINT"(^^"TRB(13'R«'■ 



DBSVOTRE CHOIX ' 



105 FOR3-130TO148 PCJ«Eat>e76,3 

110 H»-RIOHT«(fl»,l> 

120 V»-LEFTKFI<,1j 

138 X-fl3CCVt>-63 

133 IFX<0QRX>7THEN30e 

140 V-8-VRLCHI> 



NEXT PrjKE36e76.0 



IFV.0CIRV>7THEM300 

Bl-7728*<X«i2^*44«V 

TH-Tfi*l IFTfl<2THEN130 

IFPEEK':rjl;-8rjpPEEK<DlJ-7THEH30a 

IFPE£K<DI)-6THEN30e 

D=TjI-Ii2 

IF<(D-g6J»'D-38>»(D-40j*(B-4Q>»<D*3e>*CL»e6j«(rj''40^*'.D*48j;'./0THEHJi 

P0KED2.6 P0KEH2*-l,6:P0K£ia*22,6 PUKEfj2+23,6 

IFPEEK(Ci>-3THEN0-7 

IFPEEf'DDMTHEHH-e 

POKED t,Q; POKED 1*1, (3*1 : POKED 1«22; 0*2 PUKEDl+^3.'>*3 D2-DI 

LT-LT*1 PRIHT"*MMtO ",LI 

TC^ T.tilf f g. | f.r l r. l | ll - ;M1 . CV V ,T- ^T., t ,*™q i m n i m , m f(im *H VQIJS HVt.' ORGNE 



v\c 



20 



284 OO3UB480 

283 FORM19OT08163 POKES 

210 0010188 

380 ""'"' "TT TrTTTTTTnT ni 



da VOUS AVE 2 PERDU !ll":00T018e 



450 PR1NT"ITTRB<11>"JHC:"8-U 

470 RETURN 

499 REM DESSIHS 

580 P0KE52,28 P0KE36.28 

310 R-7168T0RI-RT0fl*51I POKEI -PEEK? i*25608) NEXT 

529 FORL=0TO87 PERDF FQKEfl+L. F NEXT 
325 DRTR0, 3, 5, 13,18,62,36,50 

530 DRTfll28,64,32,88,8, 132, 116-76 
333 DflTP.36,60. 36.63, 2,28,32,63 
340 DftTR32. 32, 32,224,64,36,4,232 

542 DRTR0, 0,0, 0,0, 0,8, 0,233, 233, 253, 235, 235, 233, 235. 253 

343 DfiTR133,66,36, 133,133,36.66,153 

550 DflrR234.233,251.243.239,222,289,283 

360 DRTR233. 63.93, 13. 183, 131.219, 193 

378 DflTH231,231,251,248.253,227.223, 192 

590 DRTR219, 193,219,3, 191 , 199.231,3 

600 RETURN 

699 REM REGLES 

780 OOSUB900 

710 P0KE36869.235 PGKE36879.B 

712 PRIHT-T 

713 F0RS-7688T07701 POKES. 6 P0KES*1 18.6 NEXT 
720 PRINT■'wa^•^•^■l^cftvRLIER■' , 

730 POKE7726.0'POKE7727, I P0KE7748.2 P0KE7749.3 

733 P0KE7742. 7 ! P0KE7743, 8 : P0KE7764 , 9 ■ P0KE7763. 10 

740 FORS-1T02888 NEXT 

743 OOSUB900 

750 PRINT" WMMMMPRftCOUREZ UN ECHIUUIER". 

768 PRINT"* RVEC UN CRVRLIER" 

766 PPINT"aEH LE DEPLRCmNT COMME RUX ECHECS- " 

767 PRINT"*2 CASES EN RVRNT.PUIS UtIE CRSE EN RETRHIT (DEPLACEMENT OBLIQUE INT 
ERDIT)" 

.-'"■■ PRINT "flPOUR IOUEPEIt!F:E2 »Lft COLONNE ffi-H) *LR LI ONE U-8' »RE 

TURN " 

7*9 PRINT" *NC POHNE LE NOMBRE DE COUPS POSSIBLES" 

770 PRINT "SWTRPE2 '0' POUR JOUER*' 

773 OETBf IFB*<>"0"TNEN773 

-"SO r,ijSUB908 

790 RETURN 

8?? PEM mm [QU 

99B F0R$»2S8T0l3eSTfcP-l POKE J6873.SHEXT P0KE36873.0 RETURN 

1800 FOPS-irU3800 NEXT 

1010 PRINT "aSPOUR RE JOUER TMPER '0'" 

1828 IFPEEK'.I97J»32THEN1,V 

1 30 GOTO 1820 

20OT RESTORE 

Z9BS RtflW EFR<lWeTHCH2M9 

2816 F0RMU-IT04 j.PtnLiH P0Kfc3687S,fl:F0RT"IT0i;» NEXT -P0KE36876,0 HEX I RETURN 

2028 DATFH000.187, 187,201 , 289,201 . 187,221 ,213.289,221 ,221 .221 ,221 .221 ,221 . 2-1 , .2 

1 



WIMPOSSIBLE 



r .n.j0 DHirt;:oi -■> « i '■ ■ i ■'■ 

2048 DHTfll87.201-20-?.2':u ; i 

,■030 HflTft20I , 193, 193, 187. IS.'. 187 



13.289.221.221,221,221.221.221.. .i 



DRAPEAUX 



Ce programme dessine des drapeaux simples, et vous 
devez trouver le nom du pays concerne 

M. MONINO-LIBERT 

A la place de la reponse en frappant la leltre T, un tableau apparait 
reprenant tous les pays (24). 

Le programme peul-etre ameliore en incluant d'autres drapeaux plus 
difftciles Essayez de rajouter les emblemes qui se trouvenl au mi- 
lieu des drapeaux. 



\KL 



70O 



ee print 

98 GOTO 44011 

lee rep 

1 1 8 oosuei 1 ee 

120 REM— 

i3e cls 

Me Ren— 

15© PRINT'?, B]"QUEL EST CELUI-CI 1' 

168 FOR I-l TO IBOB.nEXT 1 'PRINT XLS 

178 PRINT -PRINT PRINT 

188 FOR I-l TO 28 

188 PRlNltl, I)TmB[2K .TIN 

U7,7}TABtlir "s*«KHTC2,ajl 

tB [ 28 r 

288 NEXT I 

218 PRINT 

228 R£n- 

238 POK£54288,8:lNPUT 0* 
248 IF M-*T' THEN G0SU8 4188 
258 IF 0«-'FRflNCE" TMEN PRINT'X'EST 8IEN 
-iPRINT'GOTO 238 , 

288 IF MO'TRftNCE'THENPRINT "ENCORE UNE 
F01S -:G0T0!6a 

278 REP 

288 R£n 

29* CLS'PRINT-OUEL EST CELUI-CI ?■ 

388 FOR 1 = 1 TO I88B'NexT I 'PRINT XLS 

318 PRINT :PRINT -PRINT 

328 FOR 1-1 TO 5 

338 PRINTC2,2jrft8(2)" 

" ! NEXT I 
348 FOR I-l TO 18 
358 PRINTC6.6JTN0C2J- 

"'NEXT I 
388 FOR 1-1 TO 5 
378 PRINTC2,2JTPBt2r 

''NEXT I 
388 PRINT 

398 RE* 

488 P0KE542B8,a'INPUT M 'PRINT 
4IB IF /"*-"T" THEN GOSUB 4180 
428 IF A«-"ESPP.GNE" TMEN PRiNT"C'£ST BIE 
M-:G0T0468 

438 IF H*<>-ESPflGN£"TH£NPRlNT"ENCORE UNE 
FOIS -:GOTO300 

448 REP 

458 SEP 

468 CLS'PRINT-OUEL EST CELUI-CI ?" 

478 FOR 1-1 TO IBBB'NEXT I 'PRINT XLS 

488 PRINT 'PRINT 'PRINT 

430 FOR I-l TO 7 

508 PRInU6,6JTmBC2)' 

■■ snexr I 

510 FOR 1-1 TO 7 

529 PRlNT[1,1]TrtBC23' 

1 'NEXT I 

530 FOR I-l TO 7 

540 PRINTC2,2]Ti«Bt2)- 

■ 'NEXT I 
558 PRINT 
580 REn 

570 P0*E542BB,B;INPUT «« 

580 IF M-T' THEN GOSUB 4)88 

598 IF n«-"UENE2UELfl- TMEN PRINT'C'EST B 

I EN' ;G0T0638 

608 IF f4»O'UENEZUELi«'"TeeNPRINT"ENC0RE U 

NE FOIS " 'GOTO470 

818 REP 

828 REP 

638 CLSipRINT-GUEL EST CELUI-CI 7" 

848 FOR I-l TO 1080 'NEXT I 'PRINT XLS 

858 PRINT -PRINT -PRINT 

880 FOR I-l TO 7 

670 PRINT[?,ZJT«et2J- 

''NEXT I 
888 FOP I-l TO 7 
890 PRlNU7,?nflBC2)' 

'■ 'NEXT I 
700 FOR I-l ID 7 
718 PRINT[l,m«t2)- 

•iNEMT I 
728 PRINT 

738 REM 

748 POKE542B8,0' INPUT |4« 'PRINT 
758 IF A4--T- TMEN GOSUB 4188 
788 IF «*»-pflTS BflS" TmEN PRINT'X'EST BI 
EN' i GOT 0880 

778 IF A«<>*PATS SflS" T MENPR IN T "ENCORE UN 
,E FOIS -'G0T0G1B 

788 REP 

798 PEn 

800 CLS:PRINT"QUEL EST CELUl-CI ?' 

810 FOR I-l TO IBBB'NEXT I 'PRINT XLS 

820 PRINT -PRINT -PRINT 

930 FOR 1-1 TO 28 

840 PRlNU4,4)TflB{2)- i-PRIM 

T[?,?n»BCI4)" ";--PRINTl2,2JT 

WC3S3' 

850 NEXT I 

see print 

878 REP 

B88 POKeSIZBB.B'lNPUT fl* 'PRINT 

890 IF fl*»*T* TMEN GOSUB 1188 

900 IF rt*--ITflLJE ,r THEN PRINT'C'EST BIEN 

" 'GOTO 32B 

910 IF A«O-ITP-Lie'TMENPRINT"ENC0R£ UNE 

FOIS "'GOTOeiB 

928 COLOR, ,0,7 

938 REH 

948 Rtn 

958 CLS'PRiNT"QUEL EST CELUI-CI ? 

980 FOR 1-1 TO IBaB'NXXT I -PRINT XLS 
970 PRINT :PRINT SPRINT 
988 FOR I-l TO 7 



990 P«lNU8,8 



1858 REn 

i860 P0KE512a8,B: INPUT H«'PRINT 

'078 IF P*-'T" TMEN GOSUB 1 1 BB 

1060 IF H*-"flLLEnflGNE" TMEN PRINT'X'EST 

31 EN" -COLOR,, 7, 8 'GOTO I I 2e 

1098 IF M*O"HLLEPflGNE"THENPRINT"ENC0RE 

UNE FC1S ' 'COLOR, ,B,7'GOTO360 

1 108 REP 

i I IB RET1 

'128 CLS;PRINTC7,B]'0UEL EST CELUJ-CI ? 

'130 FOR I-l TO IBBB'NEXT I 'PRINT XLS 

I 140 PRINT -PRINT -PRINT 

I 150 FOR I-l TO 7 

l 160 PR1NTC2.21TPBC2)" 

'NEXT I 
i 178 FOR 1-1 TO 7 
' 188- PRInTC7,?]Th9C2J" 

' 'NEXT I 
M90 FOR I-l TO 7 
'200 PRlNTC2,2]TftB(2)- 

' 'NEXT I 
1210 PRINT 

1228 REH 

1238 P0kE5428B,B.-|NPUT fl.'PRINT 

'248 IF fl«-"T" TMEN GOSUS 4180 

'258 IF P«-"rtUTRICME" TMEN PRINT'X'EST B 

IEN" :&0T0l23B 

1268 IF A«O'AUTRirME"TMENPRINT"ENC0RE U 

HE FOIS -1GOTOI 13B 

1278 REn 

1288 REn 

>29B COLOR, ,B,7XLS'PR]NT-QUEL EST CELUI 

-CI ? 

1308 FOR 1-1 TO IBBB'NEXT I 'PRINT XLS 

1310 PRINT 'PRINT'PRINT 

1320 FOR 1-1 TO 2B 

1330 PRINTCB,91TmBC2) 1 ' 'PPRI 

NT[6,6]TP6C14J- "' i 'PRINT [2, 21 

T ABC 261" 

134B NEXT I 

1358 PRINT 

1368 REn 

1378 P0K£S428B,8'INPUT ft* 'PRINT 'PRINT 

1388 IF ««-'T" TMEN GOSUB 4188 

1398 IF ft- = H BEl-GlaUE'- TMEN PRINT'X'EST 6 

IEN 1 ' 'GOT0I43B 

1408 IF R«O"BELGlQUE"TNENPR[NT"£NC0RE U 

NE FOIS "XOLaR,,8,7'GOTOI3B0 

1410 REn 

1420 REn 

1430 COLQR,,?,BXLS'PRINT"aUEL EST CELUI 

-CI ? 

1440 FOR I-l TO laeasNEXT I'PRlNTXLS 

'450 PRINT 'PRINT 'PRINT 

1460 FOR I-l TO ? 

147B PRlNT[2,2JTp.B(2)" 

- 'NEXT I 
1488 FOR I-l TO 7 
1490 PR1NU7,7]T*W(8J* 

1 :NEXT I 
15B0 FOR 1-1 TO 7 
1510 PRlNTt4,4)TP8t2) i ' 

" :NEXT I 
1528 PRINT 
153B REP — " 

154B P0K£542B8,8:1NPUT M:PRINT 

1558 IF f**'-T- TmEN GOSUS 4188 

1568 IF M-'-MONGRlE 1 ' TMEN PRINT'C'EST BJ 

EN" :GOT0l68B 

1570 IF ^O'MONGRIE'TMENPRINT-ENCORE UN 

E FOIS ":G0T0141B 

1 580 REP 

1590 REP 

1600 CLSsPRINr'QUEL ESI CELUI-CI ?" 

'610 FOR I-l TO IB0B:NEXT I;PR1NT:CLS 

1828 PRINT:PR1NT:PRINT 

'630 FOR I-l TD 2B 

1640 PRINT! I , 1 JTi48C23- " i :PRI 

NT[6,6)TABt I4J" -pPRlNTt2,2) 

TMBC26)- 

'650 NEXT 1 

1668 PRINT 

1670 REP " 

1680 P0KE^47aB,a- INPUT fl*:PRINT 

1698 IF M**T- THEN GOSUB 4 188 

1700 IF fl«-"TCMAO- TMEN PRINT'C'EST BIEN 

":PRINl-G0T0 174B 

1718 IF MO-TCHWTMENrRINT-ENCORE UNE 

FOIS ":G0T0I618 

1728 REP- — — " 

'738 RCfl """ 

1740 CLS^PRINT'OUEL EST CELUJ-Ci t" 

'758 FOR 1-1 TO leBBifiEXT IiPRINT-CLS 

'768 PRINT :PR1NT tfRlr*! 

1778 FOR I-l TO 28 

17B8 PRINT(4,4]T/^6(2)■' " I !pflI 

NU7,7)Trteei4r ' . pRiNrt4,4i 

TA8(26)■■ 
'798 NEXT I 
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RJNT 



1810 REP - - 

1820 P0«E342BB,a;|NPUr P* iPRINI TRINT 

'830 IF IM--T' THEN GOSUB 4 1 Be 

1B40 IF rtt-'NIGERlrt- THEN PRlNT'C'EST BI 



mo i sea 

1858 If "t ■ ■.PB1NT-£*0*E UN 

F FOIS ' G 

i860 R£ft- 

I 
■ ■■■::■ ■ . . ■. - . ■ 

M I-l 10 ipaa. ■-•■■ ■-■■■■ 
'988 PR!f*7 :P«Inl .•=»:■.; 
'918 FOR I-l '0 <B 
'928 PRlNTte.aiTM 

■ h : 
1938 FOR |-l TO 5 
1340 PR1NI[ I, IJtdBlZr 

-NEXT I 
1350 FOR I-l TO 5 
'960 PRlNT:2,2)Tfl8(2)- 

:M£yl I 
1970 PRINT 

13BB REP 

'938 PDKE542as,e-lNPUT fit :PRINT 

2000 IF ftto-T- TMEN GOSUB 4 1 BB 

2810 IF F>**-C0L0PB1E' TMEN PRINT"C*£ST B 

IEN" :GJTO 2058 

2020 IF AiO"C0L0P9IE' ThENPRInT"EnCORE U 

N£ FOIS - ;G0T0183B 

2830 REP- - 

2048 REP- 

2858 CLS:PR1NT"0UEL EST CELUI-CI 7' 
2060 FOR I-| TO 1BBB;N£xT I:PRINT:CLS 
2070 PRINT :PRIM -PRINT 
2860 FOR 1=1 TO 4 
2038 PRINTE1 , 1 ITPBE2J- 

;HEXT I 
2100 FOR 1=1 TO 3 
21 IB PRINI[7,7]I( : 'BC:) 

■:N£XT I 
2128 FOR I-l TO 7 
2130 PR]M'2,2JTNB(2r 

■ :NEXT I 
2MB FOR I-l TO 3 

2158 PRINTC?,?]TPBC2r 

■:NEXT I 
216B FOR [-1 TO 4 
2178 PR1NTC1, 1)T^B(2)" 

;NE>T I 

2IB8 PRINT 

2198 REP 

2208 POK£542eB,0;lNPUT P*:PRINT 
2210 IF flf-'T" THEN GOSUB 1188 
2228 IF (4*-"CDSTm RICfl" THEN PRINT'C'EST 

BIEN" -PRINT -PRINT :G0T0226B 
2238 IF (WO'CDSTm RICh'TMENPRINT-ENCORE 

UNE FOIS -;GOTO2068 

2240 REn 

2250 REP 

2260 CLSiPRJNT"OUEL EST CELUI-CI ?* 
2270 FOR I-l TO 10BB:NEXT I'PRINTXLS 
22B0 PRINT SPRINT ^PRINT 
2230 FOR I-l TO 2 
2308 PR1NTC6,6)TPBC23' 

•'NEXT I 
2318 FOR I-l TO 2 
2328 PRlNTC2,2JTflBC2r 

:NEXT I 

2330 FOR I'l TO 2 
2340 PRINTE6,6]TAB(2J- 

■ ;NEXT I 
2358 FOR 1-1 TO 2 

236B PRINT[2,2n<*Bt7r 

' ;N£XT I 
2370 FOR 1-1 TO 2 
2388 PRlNTt6,6iTP.B(2)' 

■'NEXT I 
2398 FOR I-l TO 2 
24BB PRlNTt2,ZJT*BC2r 

:NEXT I 
2410 FOR 1-1 TO 2 
2428 PRINT[6,61TflB(21" 

' :NEXT I 
2430 FOR I-l TO 2 
2440 PRINT[2,21TPBI21" 

■ IMEXT ! 
2450 FOR I-l TO 2 

2460 PRINU6,B]TflB(?)" 

1 :n£XT I 
2478 PRINT :PRINT 

24BB REn— 

2490 POK£542BB,B:INPUT f* :PRINT 

2500 IF A*-"T" THEN GOSUB 41B0 

2510 IF H4--CPTPLPN" TMEN PRINT'C'EST BI 

EN-iPR[NT:GOT0255e 

2520 IF ft*O-CNT«LftN-TM£NPRINT-£NC0RE UN 

E FOIS -:G0T0227B 

2538 REP 

254B REP 

2558 CLSiPRJNT'QUEL EST CELUI-CI ?" 
2568 FOR I-l TO IBBB^NEXT I'PRINT-CLS 
257B PRINT :PRJNT :PRINT 
2598 FOR I-l TO 10 
2598 PRlNT[2,2JTftBC23" 

" :NEXT I 
2608 FOR 1-1 TO 18 
261B PRINT!?, 7JTNBf2r 

"iNEXT I 
2620 PRINT 

2630 REn 

2648 P0KES12BB.BMNPUT ft* =PRINT 
2658 IF A*-"!" TMEN GOSUB 1188 
2660 IF A«--nONPC0 r TMEN PRINT'X'EST BIE 
N'iPRINT JGOTO270B 

2678 IF rt4O"n0NflC0-TMeNPRINt"ENC0Re UNE 
FOIS " i00T0256e 

2698 Ren 

269B REn 

2788 CLSiPRINT"OUEL EST CELUI-CI 7" 

2718 FOR I-l TO leeB^NEXT liPRlNTXLS 

2729 PRINT :PR1NT>PRINT 

2738 FOR I-l TO 2B 

2748 PR!NT(1,4JTl4B(2l" *{!PR! 

NT[8,8JTmBCI4>- "[:PRINH2,2] 

TfleC26)" 

2758 NEXT I 

2768 PRINT 

27?e REn-— - ■— " 

27B8 POKE513OB.0JINPUT fl* :pRINT -PRINT 

2738 IF rt«--T" TMEN G0&U8 1188 

2888 IF m*'tVLl' TMEN PRINT'X'EST 8IEN" 

ipRINT :GOT0 2810 

2BIB IF ft*<> -nW-I-TMENPR INT 'ENCORE UNE F 

OIS -:G0I027IB 

7928 REn- - 

2838 REn 

2848 CLS'PRINT"OUEL E6T CtLUI-CI 7" 
2858 FOR l-l TO IBBBiNEXT UPRINHCLS . 
2868 PRINT ipRINTifRINT 
2878 FOR l-l TO 18 



T888 rRlNT[?,7)TM:7J' 
NT(7,2JT^t1Il«)- 

2898 NEXT I 

2988 FOR I-l TO 18 

2918 PRlM(7,7)T«et7)- - ; :P«i 

NT(4,4)T(*flClir 

2928 NEXT I 
2938 PSlid 
2948 REn — 

7958 P0KE542Be,e = lNFUT **»=>• 
2968 IF ftt-'T- TMEN GOSUB 4)08 
2978 IF M-TWO««*SCftR 

BIEN-:O0T0 30:? 
2998 IF MO-r»0KGWSCl»«-TMENP?lNT-eNC0RC 

U« FOIS -;G0T07«S» 

2398 REP — 

3888 REn - 

3818 CLS:PR-;nT'OUEL EST CELUl-CI f 
3978 FOR 1*1 TO ieW9-NC>I !:PR]MXLS 
3839 PRlNl -PRINT TRINT 
3848 FOR i-l TO 7 

38SB PRINK*. 43TMC7)' 

3868 FOR 1*1 TO 7 
3878 PRINTt6,6JTPe(73' 

■ ■ 
3888 FOR l-l TO 7 
3898 PR1NT[2.2)TPS{7)- 

-- ! ■ ■ : 

-*:.V •;;::-■ 

3118 REP - — 

3129 poi<es47ee,B;iNpuT fl» ■■■;■■■ 

3139 IF M-*T* TNEN G0SU6 11B0 

3140 IF rt«-'£TMlOPlE' THEN PRINT'C'EST 8 
IEWsGO.03189 

31S8 IF MO-eTMIOPlE-THENPRINT-ENCORE U 
ME FOIS -;GOTO307B 

3160 REP 

317B REP 

3188 CLS:PR]NT"OU£L EST CELUl-CI 7 

3198 FOR I-l TO 1809. NEXT IMPRINT XLS 
3288 PRINT SPRINT SPRINT 
3218 FOR I-l TO 18 
3220 PRINU?,7]TA8C2)" 

"'NEXT I 
3238 FOR 1-1 TO IB 
3246 PR!NH2,2]TMtC2J- 

-'NEXT I 
325B PRINT 

3260 REP--- 

3770 P0KE542B8,6:lNPUT fl< 'PRINT 

3280 IF M---T' THEN 0OSU8 4188 

3290 IF ^-"POLOGNE" THEN PRINT'C'EST BI 

EN" :GOTO3330 

3300 IF ft«<>"P0L0GNE"TH£NPRINT'£NCOR£ UN 

E FOIS -;G0T0313B 

3318 REn 

3320 REn 

3330 CLS;PR1NT"0UEL EST CELUI-CI ?- 
3340 FOR I-l TO iee8:NEXT HPRINT'CLS 
3358 PRINT :PRINt TRINT 
3368 FOR 1-1 TO 7 
337B PRlNU4.4JTft8l2r 

'■ i NEXT J 
338B FOR l-l TO 7 
3330 PRJNU6.6]TnBC2)- 

-:NEXT I 
340B FOR 1-1 TO 7 
341B PRINTtl , l]THBt21' 

"'NEXT I 
3478 PRINT 

3438 REP 

3440 POKESIZBB.BUNPUT M-'PRINT 

3450 IF fl«-"T- TMEN GOSUB 4188 

3468 IF n*-"G^BON' THEN PRINT'C'EST BIEN 

" 'PRINT :GOT0319B 

3478 IF fl«<>"Of>BON"THENPRINT-£NCOR£ UNE 

FOIS "iG0T033ie 

34B8 REP 

3190 CLS:PRlNT"OUEL EST CELUI-CI ? 

3588 FOR I-l TO IBBBiNEXT I 'PRINT XLS 

351B PR1NT:PRINT 'PRINT 

3520 FOR 1-1 TO B 

3530 PRINT(7,2JTp.BC2r " I sPRI 

NU7,?lTflBCM)" " ^PRINT[2,7IT|4BU8)' 

-NEXT I 
3548 FOR l-l TO 1 
35S8 PRlNTf.7,7]TMB(2r 

' 'NEXT I 
3368 FOR l-l TO 9 

3578 PR!NT[2,2)TMB{7r " I >PRI 

NT[?,7JTfiBtl4)" ' , :PRINT[2,2)TMUI8): 

" iNEXT I 
358B PRINT 

3590 REP 

3600 PWES170B,B! INPUT fl-:PRINl 

3618 IF fl*" ,r T" TMEN GOSUB 4ISB 

3628 IF *«- J OANEnflRK" TMEN PRINT'C'EST B 

IEN" :G0T03648 

3838 IF ft«O"0flNEnP.RX"TM£NPRINT"ENC0RE U 

NE FOIS -:G0T035ee 

3648 REn 

36S8 CLS:PRlNn?,er , OUEL ESI CELUl-CI 7 

3660 FOP l-t TO 1BB8 NtXT I -PRINT -CLS 

3670 PRIN1 :PNlNT :»"Rlril 

308B FOR 1-1 10 7 

.1098 PRINTt I , I JTPBC2J* " 

"iNEXT I 
3708 PRINTt7,7JT08C2)" 
i ! pRlNH7,?)TPBae)'?073-,^RINT[2 1 ?nr>8 

(283- 

371B PRINTtl. 71TMB12)' I' 

PRlNTt2,7lTPBll7r'C1C47E7AC4C4'iiPRINT[2 

,7]TflBt28)- 

3728 PRlNTC2,?HrteC7)- 

PRlNTC2.7)TP«C17)"eO CE" i 'PRINT ( 2,71 T 

ftBt7B)- 

3736 PR[NH2,?)TPB[2)' 

)PRtNK2,7.TM(17]'-eD fE " i 'PRINI 12. ?)Tn 

BCM)' 

3740 PRlNTC2,7)TPBt2)- 1* 

PRINTL2.7)TflB(l7)" EEEEEDEU "(.P«lNTt2.7 

1T(-B(2B]" 

3738 PRINTI7.7)Tnil(3)' ■' 

PRINT[2.7IT^eU7}"--(E EOEO" 1 'PRlNTt2. 7 

ITftSlSQ)" 
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BELOTE DE COMPTOIR 



If 



Restez Chez vous el profitez des joies de la belote de 

comptoir grace a ce programme qui vous (ournira trois 

partenaires. Attention, ils jouent bien. 

En prime, pour les malchanceux, vous pouvez even- 

tuellement vous "retaire" en jouant a I Oubliette du 

Donjon. 

Daniel BOTTON 

Mode d'emploi: 

Les regies pour les neophytes son! dans le programme. Tape* 
d'abord la (able des formes ($ 1000 a $ 1220).Sauvegardez !a 
(nonvCARTES) par BSAVE CARTES. AS 1000.L$ 220. Rajouler en- 
suite dans le programme la ligne: 
7 PRINT CHRS (4); - BLOAD CARTES - . 




APPLE W 



I ROI I.A BELOTE D£ COHPTOIR 
3 "One i PRINT j PRINT I PRINT ■ 
LA BtLOTE 0£ COWRTO 
IR"I PRINT i PRINT i PRINT 

10 Din vL»t7l ,k:l«C3) . JC< 31 I 

12 DIM PI IID.T1HI .CJI41 ,J?(4> 

13 DIM PO(7) 



RE81 


m 














F OR 


i - 








;: 


ht.^ 


WL* 


1)1 


f on 


. 





ro 


J.: 


RSAD 


KL« 


ll : 


ftftT* 


SEPT 











ftS.NEUF, VALET 
43 DATA PIQUE .TREFLE.CARREAU, CO 

EUR 
47 NOIR - JiROUGC • 3 
50 FOR I • O TO 31iJCU> - li HEX' 

31 REM VALEUR DES CARTES 

32 FOR I - TO 3 

33 PUB • I) - OiPl (Q • 1 • 11 - 

O1PH8 • I * 21 - 3iRl (0 • I 



1I:P1 (9 < 



I * < 
' 20 



.3UP0I21 - 



37 rCt! 1 

SB PO(0> - ,4UPOtl) 

.3BIPOC3) - -&3 
39 P0<41 - .73iPO(3> - .aiiP0(6) - 

.9iP0(?> - 1 
60 PRINT i PRINT ■ PRINT ~VOULEZ 

-VOUS LA REGLE DU JEU ? "I 

62 GET R« 

64 IF M < > -O" THEN GOTO 90 

63 HOME : PRINT -ON JOUE AVEC UN 

JEU DE 32 CARTES. "i PRINT " 
LE PRINCIPE EST D'ENGAGER DE 
S PARIS SUR"! PRINT "LES RES 
ULTATS D'UNE LEVEE DE V8ELOT 
E "I PRINT ' A TOUT-flTOUT" 
6fl PRINT t PRINT "CHACUN DI3TRIB 
UE A TOUR DE ROLE, "i PRINT 
'CHAOUE JOUEUR RECQIT UNE CA 
RTE.-i PRINT "LES ENCHERES V 
ONT DETERMINER J3UEL "i PRINT 
•JOUEUR VA JOUER EN PREMIER. 

69 PRINT -COMME IL N'V A OU r UN S 

EUL PLI, JOUE A"i PRINT "TOU 
T-ATOUT, SA CARTE DETERMINER 
A LA-l PRINT "CDULEUR DEMAND 
EE." 

70 PRINT ! PPINT -CHAOUE JOUEUR, 



- - PASSER -i PRINT - - DI 

RE UN NOMBRE SUPERIEUR AUX A 
UTRES-I PRINT -NOMBRES EVENT 
UELLEMENT LANCES " I PRINT "A 
UPARAVANT i CA L' ENGAGE A JO 
UER EN "I PRINT "PREMIER- 
PRINT ! PRINT -APPUYEZ SUR UN 
E TOUCHE POUR CON T I MJER " I 1 BET 
M 
HOME 

PRINT 'LES ENCHERES CESSENT L 
ORSOUE. APflES"i PRINT "UNE A 
NNONCE, TDUS LES AUTRES JOUE 
URS "I PRINT "ONT PASSE. CEL 
UI QUI A LANCE LA "l PRINT " 
DERNIERE ANNONCE POSE SA CAR 
TE EN* I 
PRINT "PREMIER. LES AUTRES L' 

IMITENT." 
PRINT I PRINT -LE VAINOUEUR D 
U Pt-I EST LE POSSESSEUR": PRINT 
-DE LA PLUS FORTE CARTE DEL 
A CDULEUR" j PRINT "DEMANDEE. 
-I PRINT "(LA PLUS FORTE CAR 
TE EST LE VALET, PUIS"! PRINT 
•LE NEUF, PUIS AS, DIX, ROI, 
DAME, MUIT.-i PRINT "SEPT! " 

PRINT I PRINT "LE VAINOUEUR D 
U PLI MAROUE AUTANT DE": PRINT 
"POINTS OUE DE JOUEURS SI LE 
S POINTS DE"> PRINT "LA LEVE 
E DEPASSENT OU EGALENT L'ENC 
HERE"i PRINT "OBTENUE. SINON 
, IL PERD CE NOMBRE DE": PRINT 
"POINTS. "I 

PRINT : PRINT "APPUYEZ SUR UN 
E TOUCHE POUR CDMMENCER"!: GET 



J1ANCHE NUMERO 



IN9: PRII 



HINT -VOUS 

DISTfttBUEZ": GOTO 105 
! PRINT "LE JOUEUR NUMERO " J TD 
I " DISTRIBUE - 

REM BRASSAGE DES CARTES 

FOR I - 31 TO I STEP - 1 
HI - INT (I » RND (I) ) 
Kl - JCIt)iJC(I) - JC<H1):JC( 

HI) - Kl 

NEXT I 

FOR I - 1 TO 4iCJ(I) - JCII) 

: NEXT I 

HBR 

PRINT "VOICI VOTRE CARTE " I C 

A - CJ(1): GOSUB lOOOiTJ - 1 

: GOSUB 1 100 

REM DETERMINATION DE L'ATOU 

T 
TJ - TDlEC - OiJP - 

SPEED- 10CJ 
TJ - TJ + It IF TJ, > 4 THEN T 

J • TJ - 4 

IF TJ - JP THEN PRINT : PRINT 

"TOUS LES JOUEURS ONT PASSE 

"I GOTO 19V 

PRINT -JDUEUR "|TJI" : "I 

IF TJ < > I THEN 166 

I OU PASSE 



) HBR 

. HOME i VTAB 21 

) TJ - JPiCA - CJIJPli GOSUB 10 

oo 

; .11 - CI I GOSUB 1 100 
) FOR II - 1 TO 3 
S TJ - TJ * 1 

' IF TJ > 4 THEN TJ - TJ - 4 

) CA - CJ(TJJi GOSUB lOOOl GOSUB 



. NEXT 11 

1 REM RECHERCHE DU 

COUP 
• REM RECHERCHE DE LA PI 

ORTE CARTE 
i JG - O 
I CF - 

FOR I - 1 TO 4 
I CA - CJIDr GOSUB 10OO 
i IF CI < > Al THEN 340 
' IF CJ(I) < CF THEN 340 
I JG - I 
' CF - CJ(JG) 



339 

360 
362 



RS: 



?INT I 



F F-- I TJ 



REM DEBUT DE LA PARTIE 
REM MISE A ZERO DU TOTAL DE 
CHAOUE JOUEUR 
I FOR I - I TO 4:T1(I) - Oi NEXT 

I 
> PRINT : PRINT 
I PRINT i PRINT -COMBIEN VOULEZ 

-VOUS FAIRE DE MANCHES7"!: INPUT 
NM 
i TD - INT (4 • RND (1) *■ 1 ) 
, N9 - Oi REM INITIALISATION DU 
NOPtBRE DE MANCHES JOUEES 

' HGr' 

i N9 ■ fJ9 • 1 1 PRINT TAD; 10)1" 



GET RE* 

IF RE» - "P" THEN 132 

IF RE« < > "E" THEN 159 

INPUT "MONTANT DE L'ENCHERE 



1 IF E7 < - EC THEN PRINT ■ 
NCHERE INSUFFISANTE..*! PR; 
"L'ENCHERE PRECEDENTE EST i 
"1EC1 GOTO 163 

I EC - E7iJP - li GOTO 132 

> K3 • TJi GOSUB I200 

I IF CT - 1 THEN EC - E7iJP ■ 



1 TO 4iPC - PC * 

NEXT I 

- POINTS DU PLI 



169 


GOTO 132 


19B 


REM JEU DE LA CARTE 


199 


SPEED- 233 


200 


HOME i VTAB 21 


203 


PRINT " C'EST LE JOUEUR NUME 




RO -|JPi PRINT "OUI A FAIT L 




A PLUS FORTE ENCHERE i " t EC 


210 


PRINT "C'EST A LUI DE JOUER 




LE PREMIER. . ,■ 


220 


PRINT CHR» (7) r "APPUVEZ SUR 




UNE TOUCHE"!! GET R* 



FOR I ' 
CJCI) > 
PRINT ' 
PC 

PRINT TAB( lO) 
ETAIT i "lEC 

IF PC > - EC THEN PRINT "L 
E JOUEUR NUMERO '■tJGl" GAGNE 
4 POINTS-iTl (JG) - IIIJGI * 

IF PC < EC THEN PRINT "LE J 

OUEUR NUMERO "UGl" PERD 4 P 

OINTS-iTl <JG) - Tl(JG) - 4 

PRINT "APPUYEZ SUR UNE TOUCH 

E ' I t GET R» 

TEXT 

HOME I PRINT " VOICI LES RES 

PRINT , 



F N9 - NM THEN 430 

RINT I PRINT r PRINT "ON CO 

TINUE. ." 

RINT -APPUYEZ SUR UNE TOUCH 



*»_' 


0010 97 


■■-' ■ 


PRINT I PPINT -LA FARriE EST 




ra mm. 




PA f Ml I ■ 




REM WCMERCHE OU SA6MAMT 


4*0 


IF - riftl iMG - UJ91N01 •• 1 




FOR I - 2 TO 4 




IF ri (I) < TF fHEH *>>' 


■.'.-. 


IF II 1 11 ■ TF THEN NO - 1 1 TF 




- TllltiJV'NG) - ll SOTO 46 


I •■ i 



483 

4B7 
490 



IF NO - I THEN PRINT "LE JO 
EUR NUMERO I -|J9ri)|* A GAG 
HE ■ -i BOTO 48C 
PRINT " LES JOUEURS SUIVANTS 

ONT GAGNC i- 
FOR I - 1 TO NO i PRINT - JOU 
EUR NUMERO -|J9(I)f NEXT I 
PRINT i PRINT -VOULEZ-VOUS F 
AIRE UNE AUTRE PARTIE 7"| 
SET REt 
IF RE4 - "O- THEN BO 

PRINT i PRINT "AU REVOIR 

MERCI D'AVOIR JOUE': PHI Ml 

END 

CI - INT (CA / B>»V1 - CA - 

B • CU RETURN 

REM AFFICMAGE DES CARTES D 



I PLI 



40: GOSUB 4000 



t XC 



' 123IYC ' 

' eoivc - 

1 I23IYC ■ 



1130 
1133 



1210 
1213 



3: GOSUB 4000 

IF TJ - 4 THEN XC - I70iVC - 
40i GOSUB 4000 

RETURN 

REM RECHERCHE DES ENCHERES 

N - 4: REM NOMBRE DE JOUEUR 



( (11 



I POM 



1285 

1287 

1288 
1290 

1293 
1293 
3999 



INT (3 • RND (1) ) 
IF K7 ■ THEN E7 - BA - 3 
IF K7 • 1 THEN E7 - BA - 2 
IF K7 - 2 THEN E7 - BA 
IF K7 ■ S THEN E7 - BA * 2 
IF K7 • 3 THEN E7 - BA * 3 
IF E7 > EC THEN 1290 
IF EC" - E7 > 3 THEN GOTO 1 

293 

Kl - INT (3 • RND (1) » }) 

IF Kl < 3 THEN GOTO 1293 
E7 - EC * Kl 

CT - li PRINT " ENCHERE I "I 
E7|" POINTS-i GOTO 1293 
CT - Oi PRINT -JE PASSE- 
RETURN 
REM DESSIN D'UNE CARTE JOU 



EE 

HCOLOR- 3 

HPLOT XC.VC TO XC * 27, YC TO 

XC » 27, YC * 40 TO XC.YC * 4 

O TO XC.YC 
IF VI < 2 THEN OV - VI * 2 
IF VI - 2 THEN DV - 7 
IF VI - 3 THEN DV - 8 
IF VI » 4 THEN DV - 5 
IF VI - 3 THEN DV - I 
IF VI - 6 THEN DV - 4 
IF VI - 7 THEN DV - 6 
HCOLOR- NOIR 
IF CI > 1 THEN HCOLOR- ROU 



XC * 3.YC * 
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ASPIC 



Le joueur (ait 6voluer un serpent qui doit avaler des 
champignons bleus, afin de s'allonger et d'incrementer 
son score en evitant toutefois de se mordre la queue, 
les champignons rouges, ou les murs entourant l'6cran. 

Olivier JOB 

HECTOR HR 



Tout de suite il est demande de crioisir un nombre de "vies", celles 
du serpent de 1 3. 7. 

L'ecran s'efface et le "terrain" apparaft. En haut a gauche, un rec- 
tangle mdique voire score S. Un autre, situe en haut et au centre, 
indique la valeur C. de chaque champignon bleu. Cette valeur varie 
entre 1 et 9. Si le serpent avafe le champignon, un bruit retentit, le 
score est augmente de cette valeur et le serpent s'allonge d'autant. 
En haut a droite, se trouve le compte a rebours indiquant le temps 
restant pour atlraper le champignon, Ce temps est de 10 secondes 
au depart, puis est increments de 1 a chaque vie perdue. Si le ser- 
pent n'attrape pas le champignon dans le delai imparti. celui-ci 
change de place, le score est reduit de 3 points et le serpent s'al- 
longe d'autant, ceci alin d'eviter que le joueur n'essaye d'avaler que 
les champignons facilement accessibles. En bas a droite L: repre- 
sente la longueur du serpent et en bas a gauche. V- indique le nom- 
bre de vies restant. 

Un cliquetis indique que le serpent est pret. Le joueur peul alors 
appuyer sur une deo 4 touches qu'll a selectionnee alin de (aire 
partir le serpent dans la direction voulue. Le serpent part du bord a 
gauche de l'ecran. Lorsque le serpent <'volue dans un sens, 1! laut 
eviter d'appuyer sur la touche permettant le deplacement en sons 
contraire. Si le joueur appuia sur une touche differente de cello diri- 
geant le serpent, celui-ci part automattquemont vers la droite au 
debut du |eu. Par la suite, cela n'affecte en nen le deptacemenl. 
Le 5ysteme est le meme avec le joystick, le pencher dans la direc- 
tion voulue et au depart, appuyer sur le bouton. Le but du jeu est 
done d'avaler le champignon bleu, mais des manoeuvres incertainos 
peuvent amener le serpent a se manger la queue ou a renlrer dans 
les murs entouranl l'ecran. Dans ces deux cas, il s'efface puremenl 
et slmplement mais s'il avale un champignon rouge, e'est tout son 
corps qui se metamorphose en une ribambello do champignons, 
creant ainsi un labyrinthel 

Lorsque toutes les vierj sont consommGes, vous pouvez rejouor en 
tapant O et dans les memes conditions en rotapant O, 



ASPIC HECTOR CHR Basic III version 2.0. 
HECTOR, 2° tour: Un jeu superbe, ASPIC qui nous 
prouve que les "pros" d'HECTOR sont des as du cla- 
vier. Remarque: Envoyez-nous vos programmes 
S.V.P.! 

N.D.L.R. 




140 •P*ed00O'F-ei'-.or»779'Poke8.FSR:0, 160 'f 
or fl.«.,FB00tofl.FBeiJ 

150 r»idV*Pok*M,V'ne>(t.H 

1S0 PokefcSFEa.eB'F-ofeeMFEt.fcFB 

170 9otoll60 

180 tia«* 'Ja-14'Y1-126'X3"M'Y3-126'L1- 
3 ■ L.2-5 - P 1 -6 ■ G6-0 ■ G 1-0 ■ P ok e24S29, ' T< X3/7 
,Y3'7>"2'> t-r-ckrtFafil .'■K2-Pf9kCl.FBfi2.MK 
3«fttkCfcFI ■ / 4-P#»k'tF8H4)'Plot210.31. 
16,28. 2 'O-JtP'JtLl, £83.24 . 1 ■ »ountf3, 12 

190 Iff ir*'0>-8orP#«V:< 24329 )><0tki«iTSoto 
200'*ls*aotol90 

280 *ourvJ7.4096'OiitPutE«,U. 126.0 tl»«t 
•Dl-0 

218 P-P*«K24529>'U-JO'*<0> 

228 S0-in«tlm«<3B))'Plot214,220« 16.20. 
2-outfu.tZ-S0, 289. 213.1' If S0>'Zthen9o*.o23 

e 

230 outPutCt, CI. C2,0<9o»ub980 ■ Plot 124* 2 
20. 16,20.2'Out.PutC-120.213.1'S8-0'tl»*t 

240 irSl>2th«nSl-Sl-3'Plot30.220.20.20. 
2>outPiitS1.24.213. 1 ■ Ll-L 1*3 ■L2-L2*3'P lot 
210,31, 16,20.2outPutLl,283.24,l 

238 UI-Xl/7'Vi»Yl/7 

268 lfW-l#ndKl><14tnflYl><126or-P-KUndy,l 
>< 14*ndYl ><l26th«T.Dl-l 

270 lfH-2orP-K2th«nDl-2 



280 lfW-4orP»K3t»r«n01-3 

290 lfW-8ofP-K4th«ri[>l-4 

388 ifOi-0th«riOI-2 

318 or.Dlfloto320. 360,400, 440 

320 ifT<Ul,Vl>-3th»noutPutEi,Xl*Yl.0 
tPutC2»,Xt-l.Yl-l,2'OutPutOt,Xl,Yl,0i 
0330 

338 IfTCUl.Vl )-4th««outPutE«.Kl.Yl,0 
tP.jtC3*,Xl-l.Yl*l,2'OutPutD»,Xl,Yl,8'< 
0330 

348 outPutEl»-Xl.Yl,0'OutPutH«.Xl,Yl 
outPutP«.y.l,Yl,0 

330 T'Ul.Vl )-l'yi-Xl-7'0utPutTl«,Xl,' 
2 9oto490 

360 ifKUl.Vl )-3th»noutPiitEI.Kl.Y1.0 
t.r-i,t,Cl«,Xl*l.Yt-U2'OUtPutO».Xl.Yl,0" 
0390 

370 IfT^Ul.Vl ;-4thenoutPutE».Xl,Yl,0 
t.PgtC4«.Xl»l.Yl*l,2outPiitrj*.Xl,Yl,0" 
o390 

390 outPutEl».Xl.Y1.0 outPutH»,Xl.Yl 
OutPutP».Xl.Yl,0 

390 TtUl.Vl )-2Xl-Xl*7outPutT2«,Xl,' 
2'90to488 

400 i f T< U 1 . V 1 )-Hh»r,outPutEt,Xl,Y1.0 
tPotC4«.Xl*l.Yl»l,2>outPutP»,Xl-Yl,8" 
0430 



410 ifTCUl.Vl)-2th#TioutPutE»,Xl.Yl.e i ou 
tPutC3«,Xl-l,Yl+1.2outPutu»,Xl.Yl,8'9ot 
o430 

428 outPutE2«,Xl.Y1.0'OutPutV«.Xl,Y1.2' 
outPu.tD«.Xl.Yl,8 

438 T<Ul.Vl>-3'Yt-Yl*7 outPutT3».Xi,Yl. 
2 i 9oto480 

440 ifKUI.Vl )-lth»>noutPutE».yi,Yl,0-ou 
tP'itCl*,Xl + l.Yl-l,2OutPutt>»,Xl.Yl,0'9Ot 
0470 

438 lfT'Ul.Vl )-2thenoutPutE«.X 1.71,0 on 
tPutC2t,Xl-t,Yl-1.2'outPutD».Xl,Y1.9'9ot 
o470 

460 ou.tPutE2».Xl.Y1.0outPatV«,Xi,Yl,2' 
outP<itD»,Xl,Y1.0 

470 TrUl.Vl >-4Yl-Yl-7'OutPutT4f,Xi,Yl, 
2 

480 U1-X1'7 vi-Yi/7' ifXl-ClindYl-C2th«n 
*joto490 else9oto500 

499 ton«500, 10 Plot-,210. 31. 20.29.2 PlotS 
0,228.20.20.2L1-L1+CL2-L2*C S1-S1*C ou 
tPutLi, 203. 24,1 outPutSl.24,213, 1 9os'jb9 
ee>P lotI24, 22Si 16-29. 2-outPutC, 120,213,1 

tl»tt S8-0 

309 ifKUl.Vl >.■>•: 0thenaoto63e 'els«T<UliV 
1 >»D1 

319 ifL2-etr-i*fi$oio530 

320 L2-L2-1 Ooto2I0_ 

338 'J3-X3/7 V3-Y3.V ' DS-TC U3 . V3 ) T( U3, V3 
>-0 outPutE«,X3,Y3.0 

348 ifP3-lth»tiX3-X3-7 

338 lf03-2thenX3-X3+7 

368 ifD3-3th«tiY3-Y3*7 

570 lfD3-4th*nY3-Y3-7 

3ef) T3-KX3/7 1 Y3'7>-ifT3-tthenoutPutHt, 
X3,Y3,2'OutPut01«.X3,Y3,0 

390 lfT3-2th*«outPutH»,X3,Y3,2 ogtPut02 
«,X3,Y3,0 

690 irT3-3th*ftOutPut»t,X3,Y3,2'OiitPut03 
•.X3.Y3.0 

£18 ,fT3-4th#noutPutV»,X3.Y3.2'QutPut04 
•,X3,Y3,0 

629 9oto210 

638 lfT<Ul.VlW*fidX3><Hoi*T<Ul.Vl - , -7in 
dY3>a2fith*flPl-2'G8-i Gl-7'9oto678 

640 lfT<Ul,Vl )-6th»r»Pl-l G0-8'Gl-0 9oto 
670 

659 if T< Ul , VI )-QthtnPl — I ■ G0-0' Gl-0' 7ot 
0670 

660 P1-0G0-0 Gl-0 

570 ii3-y3'7'V3-Y3'7'D3-T'U3.V3)'OUtPotE 

i- .■-■ i.e-eutputw-xs-YSiGe'Ttio.vawsi 

680 if03-lther,X3-X3-7 
690 ifD3-2th«TiX3-X3+7 
780 if03-3th*nY3»Y3+7 
710 ifD3-4thrr>Y3-Y3-7 

72« U3-X3/7'V3-Y3'7'tfT(U3.V3>7orTru3, 
V3 :'-6or-T<U3, V3 >0th#n«oto738 ■ »t*e9oto678 

730 outPutE*.X3,Y3,G0'TCU3-V3>Gl'lfPl- 
2thenoutPutE*,X3-Y3,B-outPutC*.y3.Y3.1 'T 
'JJ3,V3)-7 

740 ifPl-lth*fioutPutEt.X3,Y3,8'OutPutO« 
,X3.Y3,3'T<U3,V3>6 

730 if PI — 1 th«nou.tPutE«, X3, Y3. 2 ' outPutO 
«,y3.Y3,3>T<U3-V3>-8 

Suite page 14 



CHEMIN 



COMMODORE 64 



Jeu de reflexion, original et nouveau.CHEMtN est faci- 
lement transposable sur d'autres micros (merne HP41J) 
Une lutte contre le hasard, le temps et la logique. 



Le mode demptoi el "diverses explications" sont incluses dans le 

programme. Pour ceux que la presentation ennuie, appuyez sur la 

barre d'espacement. 

Pour les curieux, le RND(-TI) de la ligne 2510 serl a obtenir un 

tirage completement aleatoire. 

Pour les presses, enlever lindexation a linteneur des boucles 

FOR... NEXT. 

Pour les paresseux. ne pas taper les Ikjnes entre 280 et 1030 inctu- 

ses. et ne pas taper les REM. 

Enfin. pour ceux qui ont une television couleur. changer la couleur. 



200 rem »«•«•*»••••*•••••*«•••«*«•«*•« 

201 REN * « 

282 REN • INITIALISATION - GENERIQUE * 

283 REM » , 
ZM HEM *•*•»•»•••••••*••*•«•••*•*•*••* 

218 POKE53288,6 POKE53281,12 
228 DIHTTt*<&,6>,TJ*<6,6>,CH*U6J 
230 Afl=l RB=1 Nt=0 
240 IFFEEKC203>=69THEN1518 

250 PRINT"38***B r— » t •-. . r, r>-rr> - 

260 PRINT" | J 1 i- t v mi V.I 

270 PRINT" ' - ' ' >-^ -^ 

230 FORT-1TQ208 IFPEEK.C203.»=6eTHEHT=2000;GGTO15I6 

230 HEXTT 

300 PRIHT"*****H PRINCIPE DU JEU : LES 26 LETTRES DE 

310 PRINT- t_ '-ALPHABET ET LES 10 CHIFFRES ONT ETE" 

320 PRINT"* MELANGES." 

330 FORT-1TO400 IFPEE* \233J'=60THEMr=280a : GOTO 131 8 

340 HEXTT 

350 PRINT"* BUT VOUS DEVEZ RETROUVER L'ORDRE ' 

360 PRINT" DANS LEQUEL ILS ONT ETE PLACES SUR UN" 

370 PRINT"* PLATEAU 6X6.' 

380 FORT-1TO680; 1FP£EK.C203J=68THENT=2000GOTO1510 

390 NEXTT 

400 PRINT":ar.TR8U2.>":aC0MMENT FRIRE ? 

410 PRINT"* VOUS PARTEZ DE LA CASE SITUEE EN HAUT" 

420 PRINT "ET A GAUCHE (CASE 71* IS*), ET VOUS DEMAN-" 

438 PRINT'DEZ A ALLER JUSQU'A UNE LETTRE 0U UN" 

448 PRINT-CHIFFRE D€ VOTRE CHOIX : POUR CELA VOUS" . 

450 PRINT-aAPPUYEZ SIMPLEMENT SUR CETTE LETTRE OU" 

460 PRINT-SUR CE CHIFFRE.*" 

478 FORT»1TO1500 IFPEEK(283^=60TMENT=2080^GOTQ15I8 

,;cg ■-- ten 

498 PRINT"** LE COMMODORE VOUS REPOHDRA PAR UNE" 

580 PRINT-SUITE DE LETTRES ET DE CHIFFRES* QUI COR-" 

518 PRINT" "PESPONDRONT A L'SUN DES PLUS COURTS CHE-" 

528 PRIHT"MINS* ENTRE LA CRSE DE DEPART ET LA CASE" 

538 PRIHT-D'ARRIVEE : A CE MOMENT, VOTRE SCASE" 

540 PRIHT-D'ARRIVEE DEVIENT* VOTRE SCfiSE DE DEPART*. ETC . 

530 F0RT-1T01588 IFPEEK<293:>=60THEN7=2B0S : GQTG15I0 

568 MEXTT 

378 PRINT"** BRTTEZ-VOUS COHTRE LE nUASRRD*. LE" 

380 PRINT" TITEMPS*. OU BIEH ENCORE- CONTRE VOTRE" 

598 PRINT" SLOG I QUE* ..." 

608 FaRT-lT058ee:NEXT 

618 PRINT'TM PRR EXEMPLE. IMRGINONS CHVEC UN ECHI-" 

620 PRINT-QUIER PLIJS PETIT) :" 

638 PRINT"* LA CASE SB 2H CONTIENT SF*" 

648 PRINT" LA CASE 3D 4* CONTIENT ZfiW 

650 PRINT"* VOUS VENEZ DE DEMRNDER A ALLER EN DF*, " 

668 PRINT-DOHC VOTRE NOUVELLE CASE DE DEPRRT EST" 

678 PRINT"!*) 2*. VOUS VUULEZ ALLER EN SF*. " 

688 PRINT" , ." 

698 PRINT" IE K D PI" 

788 PRINT" IL JF» C J I" 

718 PRINT" 10 H N I I" 

728 PRINT" IM B G ZPMV 

738 PRINT" \ '" 

748 PRINT" PRRMI LES DIFFERENTES REPONSES P0SSI-" 

738 PRINT*BLES, IL V B ■• 

768 PRINT" - F C 'J I A" PRINT" - F H N G R" 

778 PRINT" - f C N G A" -PRINT* - ET CAETERA ... " 

788 PRINT"* APPUYEZ SUR BHIFtW WHIT633, 1 

798 PRINT' - "* REMflftQUES :■ 

888 PRINT' " 

818 PRINT"* 1) ATTEHDEZ POUR JOUER QUE LE CHRQNOME-" 

828 PRINT— TTRE COMMENCE fl TQURHER." 

838 PRINT'* 2) POUR LE SFREMIER COUP*. VOUS ETES SEN" 

848 PRINT-HBurai ET 3A GAUCHE* DU TABLEAU. " 

338 F0RT-lT058e- IFPEEKC203J-60THENT-2000- OOTO1510 

368 HEXTT 

878 PRINT-* 3) Lfl SOLUTION EST EN FRIT DOUBLE, CRR" 

388 PRINT-PAR SVMETPIE " 

398 PRINT"* D C E D 1 L" 

988 PRINT"* 1 8 G EOUIVAUT A C 8 P" 

918 PRINT-* L P 2 E 2" 

928 FORT-1TO300 IFPE£K(293>-68THENT-2800 GOT013I8 

938 HEXTT 

948 PRIHT"* 4) DONC. SUES LE PREMIER COUP*. VOUS POU-" 

958 PRINTTT/EZ 3PLACEP 2 SIGNCS* -ILETTRE OU CHIFFRE) " 

968 PRIHT"n ~ L£ 91 ER* 'SIGNE' DE LA REPONSE "EH" 

978 PRINT"HAUT A 0AUCHE*. " 

988 PRINT" - LE -C HD* 'SIONE' DE LA REPOHSE SEOIT" 

390 PRIHT—P DROITE, SOIT EN DESSQUS*. " 

1888 F0RT-1T0488 IFPEEK<283>-68THENT-2808 G0T0I519 

1818 NEXTT 

1020 PRIHT"* RPPUVEZ SUR SEHIPT*" 

1838 MAIT633.1 

1588 REN ••••*«*•««••••••«*••»•««••• 

1581 REN * • 

1502 REM * CORPS DU PROGRAMME * 

1383 REM • • 

1304 PEM «••#•••*•*•♦«•«•«•*••••*••«*•* 

1510 0OSUB28I8 : REM PREPARE L'ECRAN 
1528 GOSUB23I0; PEM REMP. TR* ET TJt 
1538 GO3UB3810 PEM SfilSIE DU JEU 
1548 G0SUB3318 REM TPOUVE UH CHEMIH 
1330 GOSUB4810 PEM RESULT HT 
1568 GOTO1530 CORPS DU PROGRAMME - 



2000 REM 

2M1 REM * « 

2002 PEM • PREPARE L ECRRH * 

2083 REM » * 

2804 REM ♦*•••♦»••»•♦»•♦***•»•••<••«•»• 

r.i_-,- . ^ ^r^»»,««,„ 2° 10 PRIHT"-]":TRB<54>."f« CHEMIH *«" 

Philippe LE FRANCOIS 2020 PRinTSPc<83.-,-fl jcdef- 

2830 PRINT" , . " 

2848 F0RR>1T0€ 

2859 ■ PRINTA-III |- 

2969 : PRINT" I I" 

2070 HEXTA 

2888 PRINT" T ■■■ 

2830 PRIHT"fllWIHi]' , ,Tfifci26)-' , *i 

2130 FOR1=1TOI4 

2118 PPIHTrAB'26>."a 

2120 NEXTI 

2130 PRINT".. .._. 

2148 PRINTTABOg);' _ ,. 

2150 PRIHTTA8< 138.'. "TEMPS" 

2160 FRINrrABCSA'.-Se 88" 

2178 GOSUB5510 

2130 RETURN PREPARE L'ECRAN - 

2580 REM *«*•«**«*•*«**,......,.«,*„,, 

2581 REM • , 

2502 REM • INITIALISE TR*CB,C> * 

2503 REM t * 

2504 REM •#t**f*»*«******.»**4*««*««**«« 
2518 H=RND(-TI) 
2520 F0RA=65T098 
2538 : B=INT<RMDC1>*6j*1 
2548 C=IHT'.RND<1)*6> + 1 
2550 IFTR*< -CK>""THEH2538 
2560 - TR»(B,l ^CHRJ^A; :TJ*(B.CJ=".- 
2378 NEXTA 
2380 FORR=8T09 



4090 NEXTCH 



"COUP NO" 



4110 

4508 

4301 
4502 
4583 
4304 
4510 
4520 
4538 
4548 

4530 

4360 
4578 
4588 
4598 
4688 
4618 
4620 
4630 
4648 

4658 
4668 
4670 
4630 

4690 
4780 
4710 
5000 

5081 

^.?;: 

5833 
5034 
5819 
3028 

50 >? 
5048 
5050 
5868 
5878 



2598 ■ B«INT<RNDU>*6>*1 

2608 : C-INT(RND(1)*6J+1 

2610 ! IFTR-.<B,C>O""THEN2590 

2620 : TR*(B,C>=RIGHT*<STR$CR),1):TJ*(B,C)=" 

2630 HEXTA 

2648 TI»="000090" 

■■2638 RETURN, INITIALISE TR*CB-C> - 

3888 REM *•***««**«■****•*•*«•**•*+.»•« 
3801 REM • * 

3002 REM * SAISIE DU JEU » 

3083 REM « • 

3084 REM ••••*»«**4*f*****«***t***«»«# 
3818 POKE198.0 

3020 PRim" x ixm mmu xtuugQ- , im'.i8),r\iY)%<'tit 

3/2>;' ".RIGHTfTIf.Z) 

3038 FL=8-GETCA« 

3848 IFCA*'"*"THEN4518- REM TOUCME FI 

3058 IFCAt-"r'THEN6ei0, PEM TOUCHE F? 

3068 IFCR*<"fl"ORCA*>"Z"THENFL=l 

3878 IFCA*<:"0"ORCA»>"3 , 'THENFL=FL+1 

3080 IFFL-2THEN3020 

3898 RETURN^ SAISIE DU JEU - 

3508 REM ****«•*•«****•««•«*•***••••••* 

3381 REM * • 

3582 REM » TRGUVE UN CHEMIN • 

3583 REM • * 

3584 REM ••«*»•*•*•**•*•*««•**•••*«••* 
3310 A-l ■B-i:CH»-TR$CAA,A8) 

3328 NC-NC+1 
3538 NC*-STR«<NC> 

3548 PRINT"******OTn*".TAB<!9),MID*<NC*. 
LEN(NC»)-1,D." ",RIGHTf(NC*,l; 
3538 IFCHf-TR»CA,B)THEN3398 
3368 A-A+l 

3370 IFA>6THEHA-l:B-B*l 
3508 IFB<7THEH3538 
3398 DH-A-AA 
3688 DV-B-AB 
3618 A-AA 
3628 S-AS 

3638 IFlNTfRND(n>.3)TMEN36B8 
3640 IFDH-0THEN3730 
3658 A-SGN(DM)*A 
3668 DH-DM-SONCDM) 
3678 GOTO3710 
3688 IFDV-8THEN3738 
3698 B-SON<DV)*8 
3788 DV-DV-SGN(DV) 
3710 PRINT"!" 
3728 CH«-CH**TR*<A, B> 
3738 IFDH<>80RDV<>eTHEH3638 
3740 AA-A 
3750 AB-B 

3768 RETURN: TROUVE UN CHEMIN - 

4088 REM •••••••♦•••••••••••••••••••••4 

4001 REM t * 

4882 REM • HFFICHE RESULTAT • 
4083 REM • • 

4884 REM »•••••••»•*••••••#»••*<*•••••* 

4818 F0RA-15T01STEP-1 

4828 CHfCA)-CH»<A-T) 

4038 HEXTA 

4048 CH«-CH**"M 

4830 CH«C!>-LEFT*CCHf,I3J 

4060 PRIHT"*J0«***l"TftB<2?J;CH«<13> 

4878 F0RCH-12T01STEP-1 

4000 ! PRIHTTABC27)."J",CHf<CH),"r' 



PETURH AFFICHE RESULTAT - 

REM •• (MM •• t 

=En • « 
REM • PLACE UNE LETTRE • 
REM • $ 
REM »...•..... ••n.t 

GOSU85540 

POKE198.0 

FL»8G£TLE» 

IFLEf-;"A-ORLEf>"Z"THENFL=l 

IFLE«:"e"0RLE*>"9-THENFL-FL*l 

IFLE*C>"."THEHFL'FL*1 

IFFL-3THEN4538 

PRINTLE* 

0OSU85578 

POKE 198. 3 

GETCOf 

IFCO«<"A"0RC0»>-F"THEN4618 

PR I NT CO*. 

POKE 193, 8 

GETLU 

IFLIJ<-1"0RLI$^-6"THEN4658 

PRIHTLIt 

TJ*CASC(C0*>-«4#VALai*>>-L£< 

D0SUB3818 

GQSUB5510 

GOTO3018 : PLACE UNE LETTRE - 

REM ff»f«»««». •■•• 

REM * • 

REM » PLACE LETTRE DANS TJ(CI,J> • 

REM • • 

REM ♦«•«*•♦*«♦•♦•»•♦*♦♦«*«*•»•♦♦•♦ 

PRINT"fT 

LI=VAL(LIt) 

FGRI=1T03*2*L1 

! PRIHT 

NEXTI 

FL=<Lfi3CCC0$>-64>»2+l 

FRINTTAB(PL,';LE* 

RETJ JPN ■ LETTRE DANS TJj-;j.J> - 

REM' ***«**«**t*4****t******«4*««** 
REM * « 

REM * MESSRGES PLACEMENT * 

REH ■ 




5508 f 
5581 I 
5582 

5503 F 

5504 REM *«••■••..•••...»............,. 



5516 
5528 
5538 
5548 
5558 
5568 
5578 



6801 
6882 

6883 



6303 
6301 
6582 
6583 
6384 
6310 
6328 
6330 
6348 



6600 

S618 

6620 
6638 

6648 

6630 

6670 
6680 
6698 

6708 
6710 
6720 
6738 
6748 
6758 
6768 
6778 
6788 
6798 
6800 
6818 
6820 
6830 
6840 
6830 
6860 
6870 
6888 
6898 
6988 
6910 
6928 
6930 
6948 
6938 
6960 
6970 



PRINT"! 

FRINT"* F7 => VERIFIER 

RETURN : 

PRINT-1 



"> PLACER UNE LETTRE OU UN CHIFFRE" 



PRIHT"rm QUEL -SIGNE' VOULEZ-VOUS PLACER 7 llll " , 

RETURN ! 

PRINT"* A QUELLE PLACE (CDLONNE - LIGNE) ? "; 

RETURN : 

REM **•«•••«*•«••••••*•«••••••••*» 

REM • « 

REM » VERIFICATION « 
REM • « 

REM *■■*•••*••••■••••••*•••••••*•■ 

F0RA*1T06 
FORB-1T06 

IFTR«A,B)=TJ*CA,B>THENZ1-Z1 + 1 

IFTR*<A,8>-TJ«<B.A>THEHZ2*Z2+1 
I NEXTB 
NEXTA 
I F Z 1 -360RZ2 * 36 T HEN65 1 

GOTO6340: VERIFICATION - 

REM *•■•••*••■••■•••*■•••••■-■•■•• 
REM * « 

REM • MESSRGES DE FIN • 
REM * « 

REM *•» v >»««««3« .*•**. ••*»««<•••> 

pr i nt ■■ ma m a mwwwiw uBmmm bravo > vous rvez trouve en-nc-ii coups ' 

PRINTTRBC48)" ET "MID*CTI*.3,2J" MIN "RIGHT#<TI»,2)" SEC 
PRINT"*" END 

PRINT""**-* DOMMRGE ! MALORE"NC"ll COUPS " 

PRINTTAB<48>" ET "MID«(TI«,3,2>" MIN , 'RI0MT»<TI*,2)" SEC 

PRINT"*** LA SOLUTION ETRIT -" 

PRINT" , ," 

FORH-1T06 

! PRIHTA"ttl I" 

: PRINT" I |" 

NEXTA 

PRINT' n- '" 

FORA-IT06 
F0R8-1T06 

PRINT'*" 

F0RC-1T08*2»A 
PRINT 

HEXTC 

PL-Bt2*l 

PRIHTTA8(PL);TR»CA,B) 
NEXTB 
NEXTA 

PRINTTH8(23>" . ," 

F0RR-1T06 

PRIHTTAB(21>,A"MI I" 

= PRINTTAB<23)" I I" 

HEXTR 

PRINTTA8<23)""1' •• 

F0RA-1T06 
: FORB-1T06 

PRINT"*" 

F0RC-1T08*2*A 
PRINT 

NEXTC 

PL-B*2*22 

PRINTTAB(PLJ,TR*CB.A) 
■■ NEXTB 
NEXTA 

PRINT"** VOTRE SOLUTION EIAIT "' 
FORA-IT06 
F0R8-1T06 

PRINTTAB<16>. TJICB.ft) .' 
i NEXTB 

FRINT 
NEXTR 
PRINT"*" ; END : 
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